中财网中牟紫藤嘉园土地查封:VBS弹出选择文件夹对话框
来源：百度文库 编辑：中财网 时间：2024/04/29 18:41:24
在VBS脚本设计中，如果能使用windows提供的系统对话框，可以简化脚本的使用难度，使脚本人性化许多，很少有人使用，但VBS并非不能实现这样的功能，方法当然还是利用COM对象。
1、SAFRCFileDlg.FileSave对象：属性有：FileName — 指定默认文件名；FileType — 指定文件扩展名；OpenFileSaveDlg — 显示文件保存框体方法。
2、SAFRCFileDlg.FileOpen 对象：FileName — 默认文件名属性；OpenFileOpenDlg — 显示打开文件框体方法。
3、UserAccounts.CommonDialog对象：Filter — 扩展名属性（"vbs File|*.vbs|All Files|*.*"）；
FilterIndex — 指定
InitialDir — 指定默认的文件夹
FileName — 指定的文件名
Flags — 对话框的类型
Showopen方法：
很简单，ok，让我们来举两个简单的例子：
例一：保存文件
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objDialog.FileName = "test"
objDialog.FileType = ".txt"
intReturn = objDialog.OpenFileSaveDlg
If intReturn Then
objFSO.CreateTextFile(objDialog.FileName & objdialog.filetype)
Else
Wscript.Quit
End If
注意：1、SAFRCFileDlg.FileSave对象仅仅是提供了一个方便用户选择的界面，本身并没有保存文件的功能，保存文件还需要使用FSO对象来完成。2、用FileType属性来指定默认的文件类型。3、在调用OpenFileSaveDlg方法时，最好把返回值保存到一变量中，用它可以判断用户按下的是确定还是取消。
例二：.打开文件
set objFile = CreateObject("SAFRCFileDlg.FileOpen")
intRet = objFile.OpenFileOpenDlg
if intret then
msgbox “文件打开成功！文件名为：” & objFile.filename
else
wscript.quit
end if
例三：比较复杂的打开文件对话框
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "vbs File|*.vbs"
objDialog.InitialDir = "c:\"
tfile=objDialog.ShowOpen
if tfile then
strLoadFile = objDialog.FileName
msgbox strLoadFile
else
wscript.quit
end if
说明：在脚本中加入 objDialog.Flags = &H020 看看会出现什么结果。
1、SAFRCFileDlg.FileSave对象：属性有：FileName — 指定默认文件名；FileType — 指定文件扩展名；OpenFileSaveDlg — 显示文件保存框体方法。
2、SAFRCFileDlg.FileOpen 对象：FileName — 默认文件名属性；OpenFileOpenDlg — 显示打开文件框体方法。
3、UserAccounts.CommonDialog对象：Filter — 扩展名属性（"vbs File|*.vbs|All Files|*.*"）；
FilterIndex — 指定
InitialDir — 指定默认的文件夹
FileName — 指定的文件名
Flags — 对话框的类型
Showopen方法：
很简单，ok，让我们来举两个简单的例子：
例一：保存文件
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objDialog.FileName = "test"
objDialog.FileType = ".txt"
intReturn = objDialog.OpenFileSaveDlg
If intReturn Then
objFSO.CreateTextFile(objDialog.FileName & objdialog.filetype)
Else
Wscript.Quit
End If
注意：1、SAFRCFileDlg.FileSave对象仅仅是提供了一个方便用户选择的界面，本身并没有保存文件的功能，保存文件还需要使用FSO对象来完成。2、用FileType属性来指定默认的文件类型。3、在调用OpenFileSaveDlg方法时，最好把返回值保存到一变量中，用它可以判断用户按下的是确定还是取消。
例二：.打开文件
set objFile = CreateObject("SAFRCFileDlg.FileOpen")
intRet = objFile.OpenFileOpenDlg
if intret then
msgbox “文件打开成功！文件名为：” & objFile.filename
else
wscript.quit
end if
例三：比较复杂的打开文件对话框
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "vbs File|*.vbs"
objDialog.InitialDir = "c:\"
tfile=objDialog.ShowOpen
if tfile then
strLoadFile = objDialog.FileName
msgbox strLoadFile
else
wscript.quit
end if
说明：在脚本中加入 objDialog.Flags = &H020 看看会出现什么结果。
迅雷不再弹出选择浏览在某一个文件夹的对话框了
vbs 怎么才能弹出一个对话框，不选择则不许其他操作，5秒不动，则采取默认操作，怎么写的啊？
javascript问题（弹出选择文件对话框）
谁帮我写条左击后弹出对话框的.(VBS的也行)
右键--选择---打开方式--弹出错误对话框怎么解决
我的电脑老弹出一个对话框让我选择
总弹出选择脱机使用还是连接的对话框
为什么我每打开一个网页就会弹出一个“没有文件扩展.vbs的脚本引擎”的对话框？
弹出对话框
弹出对话框
请问:为什么在桌面上单击右键然后选择属性不能弹出属性对话框来这是什么原因,怎样才能弹出属性对话框
asp如何弹出选择对话框，选择确定或取消，以确定程序流程
用鼠标右键点击文件夹或图标就弹出已经卸载赛门铁克安装程序对话框
我的共享文件夹局域网内别人为什么不能看？弹出对话框说无权访问！
用vb6设计一个按钮，点击后可以弹出“浏览文件夹对话框”怎么实现
一打开一个文件夹老弹出程序错误得对话框Active movie explorer.exe错误
文件夹双击后就弹出“打开方式”对话框，只能用右键打开了
我在删除一些文件夹时，为什么有些总是删不了？总是弹出对话框说出错
为什么我在文件夹里点友键新建东西，就弹出对话框好象要安装什么东西
怎么我一上网，就会弹出”选择已经打开的网址”的一对话框啊？
上网时怎么不让弹出”选择已经打开的网址”这一对话框呢
mpg文件不能删除，而且只要选择就会弹出错误对话框？
IE下载为什么就直接下到临时文件夹,而不是弹出对话框,让你选择目录?
下载是右击选择另存为，却弹出一个对话框说当前设置不允许下载是怎么回事？