緣份遊戲網 - 備份站

定義一個變量fso
    VBS Dim fso
    創建並返回對對象Scripting.FileSystemObject的引用。這句我也不知道是不是這個意思~反正要讀寫TXT必須調用Scripting.FileSystemObject~所以這句你記著寫就行了
    VBS set fso=CreateObject("Scripting.FileSystemObject")
    下面定義三個常量是在打開TXT文件時用於說明打開方式的~後面還會說到
    VBS const forreading=1
    VBS const forwriting=2
    VBS const forappending=8
    判斷文件是否存在，=0就表示不存在
    If fso.FileExists("c:\test.txt")=0
    endif
    文件不存在的話可以建立一個新TXT文件，變量F中存放文件路徑和文件名
    vbs set myfile=fso.createtextfile(f)
    剛創建的文件默認是以寫操作方式打開的
    文件存在的話可以打開
    以讀操作方式打開文件，forreading常量前面設了=1表示讀方式
    vbs set myfile=fso.opentextfile(f,forreading)
    以寫操作方式打開文件，forwriting常量前面設了=2表示寫方式，此方式打開的文件不敢以前有沒有內容打開時都變成空TXT文件~寫的時候從第一行開始寫，覆蓋掉以前所有內容
    vbs set myfile=fso.opentextfile(f,forwriting)
    以追加寫操作方式打開文件，forappending常量前面設了=8表示追加寫方式，此方式打開文件時保留以前的內容~寫的時候接在以前內容的後面一行開始寫。
    vbs set myfile=fso.opentextfile(f,forappending)
    只有以讀操作方式打開文件後可以讀TXT文件的內容，剛打開的文件第一次讀為第一行~再讀一次為第二行
    vbs a=myfile.readline
    判斷是否到達最後一行，如果到了就是-1如果沒到就是0
    myfile.atendofstream=-1
    以寫操作方式打開的文件可以進行寫操作，一條寫語句可以寫入一行，第二次寫為寫入第二行，b是一個變量~裡面是要寫入的內容
    vbs myfile.writeline(b )
    如果a是一個數值變量則應轉換成字符串再寫
    vbs myfile.writeline(cstr(b ))
    關閉文件，若文件已用某種方式打開，需要以另一方式打開時需要先關閉
    vbs myfile.close