亚洲六月丁香色婷婷综合久久,欧美乱大交xxxxx免费,久久人人爽av

您先把如下的代碼復(fù)制，然后保存為FileSave.vbs，雙擊打開，您看到了什么呢？

復(fù)制代碼代碼如下:

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在很多時(shí)候一直給用戶以不友好的文件打開或是保存方式，總是自己在后臺(tái)處理掉了一些FSO操作，而不能讓用戶自己進(jìn)行一些設(shè)當(dāng)?shù)腄IY。所以，為什么不用COM呢？COM組件在系統(tǒng)里是一直存在的，利用它，我們的用戶體驗(yàn)將會(huì)提升很多。
上面的代碼是不能彈出一個(gè)保存test.txt文件的對(duì)話框呢？后綴名和文件名大家自己去修改，估計(jì)懂點(diǎn)vbs基礎(chǔ)知識(shí)的人都能修改筆者的這個(gè)小腳本，并將它鑲嵌到自己的腳本中去吧？
下面再看一個(gè)例子，這次是打開文件，獲得文件名。

復(fù)制代碼代碼如下:

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

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

一個(gè)名稱，一個(gè)調(diào)用方法，僅此而已。
如果您覺得這個(gè)不夠帥，您想用類似于MFC中完全自己DIY的CFileDialog，您該怎么辦呢？也很簡(jiǎn)單，UserAccounts對(duì)象為我們提供了CommonDialog，這個(gè)更加高級(jí)的打開通用對(duì)話框。

復(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)用方法。

標(biāo)簽：武威阜陽(yáng) 河南伊春牡丹江咸陽(yáng) 四平梅州

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《Vbs COM之打開/保存文件腳本代碼》，本文關(guān)鍵詞 Vbs,COM,之,打開,保存,文件,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。