VBS:write and read file

标签：get   vbs   pen   txt   rip   filename   system   files   open   

fileName = "f.txt"
content = "blank context"

Dim objFSO
Set objFSO = CreateObject("scripting.filesystemobject")
absFileName = objFSO.GetAbsolutePathName(fileName)

Dim objStream
Set objStream = objFSO.CreateTextFile(fileName, True)
objStream.WriteLine(content)
objStream.Close

Dim objFile
Set objFile = objFSO.OpenTextFile(absFileName)
wscript.echo objFile.ReadAll

VBS:write and read file

标签：get   vbs   pen   txt   rip   filename   system   files   open   

原文地址：https://www.cnblogs.com/xinyueliu/p/12693310.html