主頁 > 知識庫 > Vbs COM之打開/保存文件腳本代碼

Vbs COM之打開/保存文件腳本代碼

熱門標簽:百度地圖標注怎么卸載 外呼營銷下單系統(tǒng) 前鋒辦理400電話申請 辦理膠州400電話財稅 打電話的外呼系統(tǒng)貴不貴 加盟電銷機器人好的品牌 陜西高頻外呼回撥系統(tǒng)哪家好 海外美發(fā)店地圖標注 新密防封卡外呼系統(tǒng)違法嗎
您先把如下的代碼復制,然后保存為FileSave.vbs,雙擊打開,您看到了什么呢?
復制代碼 代碼如下:

Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
Set fso = CreateObject("Scripting.FileSystemObject")
objDialog.FileName = "test"
objDialog.FileType = ".txt"
intReturn = objDialog.OpenFileSaveDlg
If intReturn Then
fso.CreateTextFile(objDialog.FileName objdialog.filetype)
Else
Wscript.Quit
End if

Vbs在很多時候一直給用戶以不友好的文件打開或是保存方式,總是自己在后臺處理掉了一些FSO操作,而不能讓用戶自己進行一些設當?shù)腄IY。所以,為什么不用COM呢?COM組件在系統(tǒng)里是一直存在的,利用它,我們的用戶體驗將會提升很多。
上面的代碼是不能彈出一個保存test.txt文件的對話框呢?后綴名和文件名大家自己去修改,估計懂點vbs基礎知識的人都能修改筆者的這個小腳本,并將它鑲嵌到自己的腳本中去吧?
下面再看一個例子,這次是打開文件,獲得文件名。
復制代碼 代碼如下:

set objFile = CreateObject("SAFRCFileDlg.FileOpen")
bRet = objFile.OpenFileOpenDlg
if bRet then
Wscript.Echo "文件打開成功!文件名為:" objFile.filename
else
wscript.quit
End if

運行這個腳本(FileOpen.vbs),將會彈出一個讓用戶自己選擇文件的對話框窗口,非常友好地讓用戶自己選擇文件。bRet是執(zhí)行的返回值,不為0則成功,objFile的FileName可以返回選擇的文件名。

一個名稱,一個調(diào)用方法,僅此而已。
如果您覺得這個不夠帥,您想用類似于MFC中完全自己DIY的CFileDialog,您該怎么辦呢?也很簡單,UserAccounts對象為我們提供了CommonDialog,這個更加高級的打開通用對話框。
復制代碼 代碼如下:

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吧,雙擊打開,它連過濾的文件類型都為您留好了接口。
默認文件名,后綴過濾器,后綴索引,標志,初始化未知,擁有者,一個調(diào)用方法。

標簽:武威 阜陽 河南 伊春 牡丹江 咸陽 四平 梅州

巨人網(wǎng)絡通訊聲明:本文標題《Vbs COM之打開/保存文件腳本代碼》,本文關鍵詞  Vbs,COM,之,打開,保存,文件,;如發(fā)現(xiàn)本文內(nèi)容存在版權問題,煩請?zhí)峁┫嚓P信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《Vbs COM之打開/保存文件腳本代碼》相關的同類信息!
  • 本頁收集關于Vbs COM之打開/保存文件腳本代碼的相關信息資訊供網(wǎng)民參考!
  • 推薦文章