vbs读写没有权限

更新时间2020-12-26 18:51:27

代码：
Const ForAppending = 8
dim a
a=0
do
a=a+1
wscript.sleep 1000*1
set fso=CreateObject("scripting.filesystemobject") 
set fw=fso.opentextfile("f:SkyTel.txt",2)
fw.writeline a
loop

在第八行没有权限

把TXT文件内容复制一下，重新粘贴到新建的TXT文件里，程序重新指定一下路径及文件。