vbs檔案操作指令碼例項
2023年11月04日 星期三 11:03
2023年10月23日 下午 02:45
1.建立乙個新的文字檔案，如果檔案已經存在則報告錯誤：
rem 在當前盤根目錄下建立"測試.txt"並寫入乙個字串
vbs dim fso,file,filename
vbs filename="/測試.txt"
vbs const forwriting=2
vbs set fso=createobject("scripting.filesystemobject")
if fso.fileexists(filename)=-1
vbscall call messagebox("發現錯誤!!!檔案已經存在!!!")
goto over
endif
vbs set file=fso.createtextfile(filename,ture)
vbs file.writeline("檔案第一行,這是乙個測試檔案")
vbs file.close
vbscall call messagebox("測試檔案建立成功!!!")
rem over
endscript
2.強行寫入檔案覆蓋原有內容：
rem 往當前盤根目錄下的檔案"測試.txt"寫入乙個字串,覆蓋原有內容
vbs dim fso,file,filename
vbs filename="/測試.txt"
vbs const forwriting=2
vbs set fso=createobject("scripting.filesystemobject")
if fso.fileexists(filename)=0
vbscall call messagebox("發現錯誤!!!檔案不存在!!!")
goto over
endif
vbs set file=fso.opentextfile(filename,forwriting,ture)
vbs file.writeline("測試寫入檔案行")
vbs file.close
vbscall call messagebox("寫入檔案成功!!!")
rem over
endscript
3.往檔案尾部追加內容：
rem 往當前盤根目錄下的檔案"測試.txt"末尾追加乙個字串
vbs dim fso,file,filename
vbs filename="/測試.txt"
vbs set fso=createobject("scripting.filesystemobject")
if fso.fileexists(filename)=0
vbscall call messagebox("發現錯誤!!!檔案不存在!!!")
goto over
endif
vbs file.writeline("測試追加字串到檔案末尾")
vbs file.close
vbscall call messagebox("追加字串到檔案成功!!!")
rem over
endscript
4.讀取指定檔案一行
rem 從當前盤根目錄下的檔案"測試.txt"讀一行
vbs dim fso,file,filename,text
vbs filename="/測試.txt"
vbs const forreading=1
vbs set fso=createobject("scripting.filesystemobject")
if fso.fileexists(filename)=0
vbscall call messagebox("發現錯誤!!!檔案不存在!!!")
goto over
endif
vbs set file=fso.opentextfile(filename,forreading)
vbs text=file.readline
vbs file.close
vbs text="從檔案"&filename&"讀取行成功！讀到的字串為:"&text
vbscall call messagebox(text)
rem over
endscript
5.從指定檔案行讀取2個字元
rem 從當前盤根目錄下的檔案"測試.txt"讀取2個字元
vbs dim fso,file,filename,text
vbs filename="/測試.txt"
vbs const forreading=1
vbs set fso=createobject("scripting.filesystemobject")
if fso.fileexists(filename)=0
vbscall call messagebox("發現錯誤!!!檔案不存在!!!")
goto over
endif
vbs set file=fso.opentextfile(filename,forreading)
vbs text=file.read(2)
vbs file.close
vbs text="從檔案"&filename&"讀取2個字元成功！讀到的字元為:"&text
vbscall call messagebox(text)
rem over
endscript
6. readall讀取整個檔案內容，大檔案太佔資源，不建議使用
//使用方法和readline近似
7.skipline跳過當前行
//使用方法是file.skipline,僅用於唯讀屬性開啟的檔案
8.測試檔案行結束/檔案結束
a.測試行結束
判斷語句
if file.atendofline=-1
...
endif
//表示式為真的時候當前指標處於行末
b.測試檔案結束
判斷語句
if file.atendofstream=-1
...
endif
//表示式為真的時候當前指標處於檔案末
9.其他用於檔案的函式或者叫方法功能有
a.file.column 返回當前列號
b.file.line 返回當前行號
c.file.fileexists(filename) 判斷指定檔案是否存在
vbs指令碼操作AD
以下是連線ad並進行查詢的指令碼 const ads scope subtree 4 set objconnection createobject adodb.connection set objcommand createobject adodb.command objconnection.pro...
vbs指令碼讀寫檔案
vbs指令碼讀寫檔案 2008 03 07 16 31 vbs指令碼讀寫檔案 1 開啟檔案 使用opentextfile方法 set fs createobject scripting.filesystemobject set ts fs.opentextfile c 1.txt 1,true 注意...
VBS 檔案操作
vbs 檔案操作 對於檔案的操作，例如 生成乙個或者開啟乙個或者刪除乙個.txt格式檔案。雖然官方的file外掛程式提供了一些基本功能，但功能不多。你並不需要理解什麼是fso模版，什麼是vbs語句，直接套用下面的語句吧！紅色字為自己定義的部分，藍色字為任意選一部分 如果你看不懂，請參考下面的例子！操...