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