asp(vbs)fso OpenTextFile方法参数说明

以只读模式打开文件。不能对此文件进行写操作。 ForWriting 2 以只写方式打开文件。不能对此文件进行读操作。 ForAppending 8 打开文件并在文件末尾进行写操作。

　　format参数可为下列设置之一：

常数	值	描述
TristateUseDefault	-2	以系统默认格式打开文件。
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

易采站长站写的一个函数

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
set fn2=fso.GetFile("E:webrootjb51index2.htm")
flsize2=fn2.size
fldate2=fn2.datelastmodified
set fn=fso.GetFile("E:webrootjb51index.htm")
flsize1=fn.size
fldate1=fn.datelastmodified
If fso.FileExists("E:webrootjb51index2.htm") and flsize2>50000 and fldate2>fldate1 Then
'判断文件的大小，如果html文件重新生成需要判断是否更新过且文件不能小于50K
fso.getfile("E:webrootjb51index2.htm").copy("E:webrootjb51index.htm")
if err.number=0 then WriteHistory "成功"&now()&".........","log.txt"
end if
'日志写入函数
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

您可能感兴趣的文章:

asp OpenTextFile文本读取与写入实例代码