在VBS腳本設計中，如果能使用windows提供的系統對話(huà)框，可以簡(jiǎn)化腳本的使用難度，使腳本人性化許多，很少有人使用，但VBS并非不能實(shí)現這樣的功能，方法當然還是利用COM對象。
1、SAFRCFileDlg.FileSave對象：屬性有：FileName — 指定默認文件名；FileType — 指定文件擴展名；OpenFileSaveDlg — 顯示文件保存框體方法。
2、SAFRCFileDlg.FileOpen 對象：FileName — 默認文件名屬性；OpenFileOpenDlg — 顯示打開(kāi)文件框體方法。
3、UserAccounts.CommonDialog對象：Filter — 擴展名屬性（"vbs File|*.vbs|All Files|*.*"）；
FilterIndex — 指定
InitialDir — 指定默認的文件夾
FileName — 指定的文件名
Flags — 對話(huà)框的類(lèi)型
Showopen方法：
很簡(jiǎn)單，ok，讓我們來(lái)舉兩個(gè)簡(jiǎn)單的例子：
例一：保存文件
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對象僅僅是提供了一個(gè)方便用戶(hù)選擇的界面，本身并沒(méi)有保存文件的功能，保存文件還需要使用FSO對象來(lái)完成。2、用FileType屬性來(lái)指定默認的文件類(lèi)型。3、在調用OpenFileSaveDlg方法時(shí)，最好把返回值保存到一變量中，用它可以判斷用戶(hù)按下的是確定還是取消。
例二：.打開(kāi)文件
set objFile = CreateObject("SAFRCFileDlg.FileOpen")
intRet = objFile.OpenFileOpenDlg
if intret then
msgbox “文件打開(kāi)成功！文件名為：” & objFile.filename
else
wscript.quit
end if
例三：比較復雜的打開(kāi)文件對話(huà)框
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
說(shuō)明：在腳本中加入 objDialog.Flags = &H020 看看會(huì )出現什么結果。
本站僅提供存儲服務(wù)，所有內容均由用戶(hù)發(fā)布，如發(fā)現有害或侵權內容，請
點(diǎn)擊舉報。
