| 常數(shù) | 值 | 描述 |
| ForReading | 1 | 以只讀模式打開文件。不能對(duì)此文件進(jìn)行寫操作。 |
| ForWriting | 2 | 以只寫方式打開文件。不能對(duì)此文件進(jìn)行讀操作。 |
| ForAppending | 8 | 打開文件并在文件末尾進(jìn)行寫操作。 |
format參數(shù)可為下列設(shè)置之一:
| 常數(shù) | 值 | 描述 |
| TristateUseDefault | -2 | 以系統(tǒng)默認(rèn)格式打開文件。 |
| TristateTrue | -1 | 以Unicode格式打開文件。 |
| TristateFalse | 0 | 以ASCII格式打開文件。 |
用法舉例:
Sub OpenTextFileTest
Const ForReading =1, ForWriting =2, ForAppending =8
Dim fso, f
Set fso =CreateObject("Scripting.FileSystemObject")
Set f =fso.OpenTextFile("c:\testfile.txt",ForWriting,True)
f.Write "嗨,你好!"
f.Close
End Sub
Call OpenTextFileTest
腳本之家寫的一個(gè)函數(shù)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
set fn2=fso.GetFile("E:\webroot\jb51\index2.htm")
flsize2=fn2.size
fldate2=fn2.datelastmodified
set fn=fso.GetFile("E:\webroot\jb51\index.htm")
flsize1=fn.size
fldate1=fn.datelastmodified
If fso.FileExists("E:\webroot\jb51\index2.htm") and flsize2>50000 and fldate2>fldate1 Then
'判斷文件的大小,如果html文件重新生成需要判斷是否更新過且文件不能小于50K
fso.getfile("E:\webroot\jb51\index2.htm").copy("E:\webroot\jb51\index.htm")
if err.number=0 then WriteHistory "成功"now()".........","log.txt"
end if
'日志寫入函數(shù)
Sub WriteHistory(hisChars, path)
Const ForReading = 1, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(path, ForAppending, True)
f.WriteLine hisChars
f.Close
End Sub
標(biāo)簽:揭陽 汕頭 攀枝花 撫州 佛山 唐山 海南 鶴崗
巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《asp(vbs)fso OpenTextFile方法參數(shù)說明》,本文關(guān)鍵詞 asp,vbs,fso,OpenTextFile,方法,;如發(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)。