dim hhh
hhh = "hhh"
rem 下面是路径
filePath = "C:\Users\Administrator\Desktop"
set file = createobject("scripTing.filesystemobject")
rem 下面是文件名
filename = "hhh.txt"
set fileContent = file.createtextfile(filePath & fileName)
rem 下面是保存的变量(或文字)
fileContent.writeline(hhh)