繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > vbs选择文件夹效果代码
- VBScript
- VBS教程：方法-GetDrive 方法
- VBS教程：方法-GetBaseName 方法
- VBS教程：方法-GetAbsolutePathName 方法
- VBS教程：方法-FolderExists 方法
- VBS教程：方法-FileExists 方法
- VBS教程：方法-Exists 方法
- VBS教程：方法-DriveExists 方法
- VBS教程：方法-DeleteFolder 方法
- VBS教程：方法-DeleteFile 方法
- VBS教程：方法-Delete 方法
- VBS教程：方法-CreateTextFile 方法
- VBS教程：方法-CreateFolder 方法
- VBS教程：方法-CopyFolder 方法
- VBS教程：方法-CopyFile 方法
- VBS教程：方法-Copy 方法
- VBS教程：方法-Close 方法
- VBS教程：方法-BuildPath 方法
- VBS教程：方法-AddFolders 方法(Folders)
- VBS教程：方法-Add 方法(Dictionary)
- VBS教程：VBScript 语句-With 语句
VBScript 中的 vbs选择文件夹效果代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 183 ::
收藏到网摘: n/a
不用组件的话有两种办法：
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
组件相关文件下载 http://sh.ruanchen.com/btools/vb6controls.rar
评论 (0) All
