常數(shù) | 值 | 描述 |
ForReading | 1 | 以只讀模式打開文件。不能對此文件進(jìn)行寫操作。 |
ForWriting | 2 | 以只寫方式打開文件。不能對此文件進(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)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。