Dim objFSO
Dim objTextFile
Dim strTEXT
Set objFSO = CreateObject("Scripting.FileSystemObject")
'检察文件是否存在
If objFSO.FileExists("C:WINCC_TEXT_TEST.txt")=True Then
MsgBox "文本文件已经存在",65536,"提示"
' ------------------------------------------------------
'写入数据
Set objTextFile = objFSO.OpenTextFile("C:WINCC_TEXT_TEST.txt",8,True)
MsgBox "打开文件成功"
objTextFile.WriteLine("欢迎领导视察工作！")
MsgBox "写入成功"
objTextFile.Close
'读取数据
Set objTextFile = objFSO.OpenTextFile("C:WINCC_TEXT_TEST.txt",1)
strTEXT = objTextFile.ReadALL
MsgBox strTEXT
objTextFile.Close
MsgBox "读取完毕！",65536,"提示"
' 清除数据
Set objTextFile = objFSO.OpenTextFile("C:WINCC_TEXT_TEST.txt",2)
Do Until objTextFile.AtEndOfStream
objTextFile.Write""
Loop
objTextFile.Close
MsgBox "清除数据完毕！",65536,"提示"
' ------------------------------------------------------
Else
'自动创建文件
Set objFile =objFSO.CreateTextFile("C:WINCC_TEXT_TEST.txt")
MsgBox "文本文件创建成功",64,"提示"
End If
