gpt4 book ai didi

vbs选择文件夹效果代码

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 27 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章vbs选择文件夹效果代码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

不用组件的话有两种办法:  set objFile = CreateObject("SAFRCFileDlg.FileOpen")  Set objShell = CreateObject("Shell.Application")  本blog里都有示例。  如果调用vb组件,可以是:  flag = &h200  whichone = OpenFile("Choose a File!", "C:\", "Everything|*.*|TextFiles|*.TXT|Word-Documents|*.DOC", 2, flag)  MsgBox "Raw data returned: " & whichone  ' Split up multi selection result:  ' space is used as separator:  whichone = Split(whichone, " ")  ' field index 0 contains path information:  path = whichone(0)  ' list all the files:  ' how many files were selected?  filecount = UBound(whichone)  if filecount=0 then  ' just one file selected!  MsgBox "You selected one file: " & whichone(0)  ' check status of Read Only checkbox  ' is bit 1 set or cleared?  ' works only if just one file was selected!  MsgBox "Returned flag: " & flag  if (flag and 1) then  ' (flag and 1)<>0, transforms to true  ' bit is set!  MsgBox "ReadOnly selected!"  else  MsgBox "ReadOnly not selected!"  end If  ' check whether selected file is of default type (txt)   if (flag and 1024) then  MsgBox "selected file is no txt file!"  else  MsgBox "selected file is of default type!"  end if  else  ' more than one file selected!  MsgBox "You selected " & filecount & " files!"  for x = 1 to UBound(whichone)  list = list & path & whichone(x) & vbCr  next  MsgBox list  end If  function OpenFile(title, dir, filter, index, flags)  set comdlg = CreateObject("MSComDlg.CommonDialog")  comdlg.filter = filter  comdlg.FilterIndex = index  comdlg.Flags = flags  comdlg.MaxFileSize = 260  comdlg.CancelError = false  comdlg.DialogTitle = title  comdlg.InitDir = dir  ' set txt as default  comdlg.DefaultExt = "txt"  comdlg.ShowOpen  OpenFile = comdlg.filename  ' important: return flag status so your main script can  ' check it:  flags = comdlg.Flags  end function  组件相关文件下载 vb6controls.rar 。

最后此篇关于vbs选择文件夹效果代码的文章就讲到这里了,如果你想了解更多关于vbs选择文件夹效果代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com