VBS里文件操作使用FSO对象

把变量写入指定文本文件
Dim FSO,File1,TS
File1="F:\Temp\123.txt"
Set FSO = CreateObject("s cripting.FileSystemObject") '创建FSO对象
Set TS = FSO.OpenTextFile(File1,2,True) '以写操作方式打开文本文件，如文件不存在则创建
TS.Write HMIRuntime.Tags("Tag1").Read & Chr(13) & Chr(10) '把变量Tag1写入第一行
TS.Write HMIRuntime.Tags("Tag2").Read '把变量Tag2写入第二行
TS.Close '关闭文件
Set TS = Nothing '释放对象
Set FSO =Nothing '释放对象

从指定文本文件里读取内容写入变量
Dim FSO,File1,TS
File1="F:\Temp\123.txt"
Set FSO = CreateObject("s cripting.FileSystemObject") '创建FSO对象
If FSO.FileExists(File1) Then '如果文件存在则执行下面的操作
Set TS = FSO.OpenTextFile(File1,1) '以只读方式打开文件
HMIRuntime.Tags("Tag1").Write TS.ReadLine '读取文件第一行内容写入变量Tag1
HMIRuntime.Tags("Tag2").Write TS.ReadLine '读取文件第二行内容写入变量Tag2
TS.Close '关闭文件
Set TS = Nothing '释放对象
End if
Set FSO = Nothing '释放对象