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

组件相关文件下载 http://xiazai.phpstudy.net/jbtools/vb6controls.rar



相关阅读:
Win2003 64位Web服务器安装配置注意事项
css3阴影属性box-shadow注意事项
javascript getElementById 使用方法及用法
javascript版的日期输入控件(5)
ASP常用的系统配置函数
比较简单实用的使用正则三种版本的js去空格处理方法
实现 win2003 下 mysql 数据库每天自动备份
HTML表格标记教程(17):表格标题垂直对齐属性VALIGN
Windows Server 2008:服务器与域分离
没有form表单情况下敲回车键提交表单的js代码
一句话JavaScript表单验证代码
Access 2007 创建和使用附件字段
phpBB 3.0.6 RC1简单介绍和下载
让批处理被wsh解析的代码
快速导航

Copyright © 2016 phpStudy |