|
在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é)果。 |
|
|
