下面給出幾個利用VBScript訪問外部文件的例子:
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)=-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
3.往文件尾部追加內容：
復制代碼代碼如下:
Rem 往當前盤根目錄下的文件"測試.txt"末尾追加一個字符串
VBS dim fso,file,filename
VBS filename="/測試.txt"
VBS Const ForAppending=8
VBS Set fso=CreateObject("Scripting.FileSystemObject")
If fso.FileExists(filename)=0
VBSCall Call MessageBox("發現錯誤!!!文件不存在!!!")
Goto over
EndIf
VBS Set file=fso.OpenTextFile(filename,ForAppending)
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) 判斷指定文件是否存在
最后強調一點，打開文件以后一定要記得關閉，以免發生數據錯誤，丟失數據。
