運(yùn)行這個(gè)腳本(FileOpen.vbs),將會彈出一個(gè)讓用戶自己選擇文件的對話框窗口,非常友好地讓用戶自己選擇文件。bRet是執(zhí)行的返回值,不為0則成功,objFile的FileName可以返回選擇的文件名。
![](/upload/20090316231913780.JPG)
一個(gè)名稱,一個(gè)調(diào)用方法,僅此而已。
如果您覺得這個(gè)不夠帥,您想用類似于MFC中完全自己DIY的CFileDialog,您該怎么辦呢?也很簡單,UserAccounts對象為我們提供了CommonDialog,這個(gè)更加高級的打開通用對話框。
復(fù)制代碼 代碼如下:
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "vbs File|*.vbs"
objDialog.InitialDir = "E:"
bRet=objDialog.ShowOpen
if bRet then
strLoadFile = objDialog.FileName
Wscript.Echo strLoadFile
else
Wscript.quit
End if
將其保存為FileOpenAdvance.vbs吧,雙擊打開,它連過濾的文件類型都為您留好了接口。
默認(rèn)文件名,后綴過濾器,后綴索引,標(biāo)志,初始化未知,擁有者,一個(gè)調(diào)用方法。