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 看看會出現什麼結果