Vbs脚本编程简明教程之十二

Vbs 脚本编程简明教程之十二 <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

使用系统对话框

 

在 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 看看会出现什么结果