Question

vbs创建文件夹

我想要写一个VBS脚本，首先从文件path.txt中读取到一个路径 ，比如读取到"C:\Program Files (x86)\System Protect Software\"

然后，我要在这个路径下的子目录ShutdownScript下创建一个文件remotecomputer.txt，并写入字串test

我的代码如下，但是为何老提示路径错误呢？是不是路径中有双引号呢？

pathname="path.txt"
Set fso1 = CreateObject("scripting.FileSystemObject")
if (fso1.fileexists(pathname)) then
set ts1=fso1.opentextfile(pathname,1,true)
end if
strpath=ts1.readline
ts1.Close

filename=strpath+"\ShutdownScript\remotecomputer.txt"

Set fso = CreateObject("scripting.FileSystemObject")
if (fso.fileexists(filename)) then
set ts=fso.opentextfile(filename,8,true)
ts.WriteLine ("test")
ts.Close
else
Set ts = fso.CreateTextFile(filename, True)
ts.WriteLine ("test")
ts.Close
end if

Answer 1

dim pathname,filename,fso,read,str,filepath
set fso=createobject("scripting.filesystemobject")
pathname="path.txt"
str="ShutdownScript\remotecomputer.txt"
if fso.fileexists(pathname)=true then                  '先来判断它是一个有效的路径+文件,如果成立,以下均按正常程序执行
 read=fso.opentextfile(pathname).readall               '读取全文
 for each i in split(read,vbcrlf)                    '遍历全文每行的内容
   if instr(right(i,1),"\")=0 then filename=i&"\"&str else filename=i&str    '在执行下面代码之前先进行格式化处理文本
   filepath=left(filename,instrrev(filename,"\"))            '分离路径
   if fso.folderexists(filepath)=false then fso.createfolder filepath       '如果路径存在则创建文件夹
   if fso.fileexists(filename)=false then fso.createtextfile(filename).write "test"  '如果文件存在则创建文件写入test
 next
end if

Answer 2

路径都有问题，你改成绝对路径，把反斜杠换成双反斜杠！例如"C:\\Program Files\\System Protect Software\\shutdownScript\\remotecomputer\\"就可以了。双引号不是问题。