VBS 如何创建一个并不存在的VBS文件并且向里面写入内容？内容有很多行，而且有特殊字符，急
发布网友
发布时间：2022-04-23 22:03
共1个回答
热心网友
时间：2023-10-11 09:31
dim txtfile
content="dim a;a=@@@;msgbox a"
Set fso = CreateObject("scripting.filesystemobject")
Set wsh= CreateObject("Wscript.Shell")
Set myfile=fso.CreateTextFile( "d:\急啊.txt",,ture)
str=Split(content,";")
content=""
For Each i In str
myfile.WriteLine i
Next
myfile.Close
wsh.Run "cmd.exe /c ren d:\急啊.txt d:\急啊.vbs"
set myfile=nothing
set wsh=nothing
将以上代码复制到记事本，保存为VBS文件，运行即可在D盘下得“急啊.vbs”文件，内容为你所说的 。我在我这测试过，得到你所说的结果，追问这样写执行很慢，有简单点的吗
追答Dim fso,wsh
dim txtfile
Set fso = CreateObject("scripting.filesystemobject")
Set wsh= CreateObject("Wscript.Shell")
Set myfile=fso.CreateTextFile( "d:\1\急啊.txt",,ture)
myfile.WriteLine "dim a"
myfile.WriteLine "a=@@@"
myfile.WriteLine "msgbox a"
myfile.Close
fso.movefile "d:\1\急啊.txt","d:\1\急啊.vbs"
set myfile=nothing
set wsh=nothing
那只能一句一句的写罗，可以通过添加并修改myfile.WriteLine "msgbox a"语句，加入其它内容
这个是一行一行的写，速度肯定比较快点
