vbs创建一个文件

2013-07-19 07:10:36 624 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

QTP通过Winrar或者纯VBS代码压缩指定的文件或文件夹 1，利用QTP中SystemUtil.Run的功能，将指定文件压缩成RAR格式。代码如下： Function CompressFile(soursefile,targetfile) On error resume next CompressFile = false m1 = chr(34) &targetfile& chr(34) m2 = chr(34) & soursefile 阅读详情

我想要写一个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

...全文

Redis中什么是Big Key（大key）问题？如何解决Big Key问题？通俗易懂的讲，Big Key就是某个key对应的value很大，占用的redis空间很大，本质上是大value问题。key往往是程序可以自行设置的，value往往不受程序控制，因此可能导致value很大。redis中这些Big Key对应的value值很大，在序列化/反序列化过程中花费的时间很大，因此当我们操作Big Key时，通常比较耗时，这就可能导致redis发生阻塞，从而降低redis性能。用几个实际的例子对大Key的特征进行描述：● 一个String类型的Key，它的值为5MB（数据过大）； ● 一阅读详情

jonesliu7618

JavaScript 87,984 成员 224,681 内容

+ 关注 + 加入社区

切换为时间正序

snowhite8888 2013-07-20

打赏
举报

估计是空格的路径造成

hookee 2013-07-20

打赏
举报

先把 pathname="path.txt" 这个路径写全试试看

danielinbiti 2013-07-20

打赏
举报

长路径短路径的问题 vbs中对于有空格的路径需要转换成短路径 WScript.Echo CreateObject("Scripting.FileSystemObject").GetFolder("C:\Program Files\Java").ShortPath

jonesliu7618 2013-07-20

打赏
举报

呵呵。我google了一下，用下面的方法解决了，去掉了双引号，运行了一下，没有问题了 strpath=mid(strpath,2,len(strpath)-2)

jonesliu7618 2013-07-20

打赏
举报

楼上，不行哦，我这个 path.txt的路径是直接从注册表读取的路径是自动的读取，我读取的就加了双引号所以我想问，如何能去掉这个双引号

snowhite8888 2013-07-20

打赏
举报

楼主，你的代码没有问题，能够读取文件中的目录，然后建立文件，写入内容。我试了没有出错信息。你检查strpath,也就是path.txt文件中第一行，不应该两端有双引号。

snowhite8888 2013-07-20

打赏
举报

检查文本文本第一行是不是有引号

snowhite8888 2013-07-20

打赏
举报

空格识别到了，但你上面的调式信息显示多了两个引号呢

jonesliu7618 2013-07-20

打赏
举报

那我换种问法，如何可以去掉我获取到的strpath路径中的双引号呢？ strpath中，获取到的路径是"C:\Program Files\System Protect Software\" filename=strpath+“ShutdownScript\remotecomputer.txt” 就是这句话中，如何先去掉strpath中的双引号，然后再相加

jonesliu7618 2013-07-20

打赏
举报

filename输出显示"C:\Program Files\System Protect Software\"shutdownScript\remotecomputer" 我看不出filename有什么问题呀我支持但是结果确实“路径未找到”

jonesliu7618 2013-07-20

打赏
举报

我有输出filename

yzx99 2013-07-20

打赏
举报

把你的代码保存为a.vbs，再建立一个path.txt，其中的内容为： "C:\download\" 在DOS下，用 cscript //d a.vbs 来调试你的代码，错误在这一行： Set ts = fso.CreateTextFile(filename, True) 错误的文件名或号码主要是： filename ""C:\download\"\ShutdownScript\remotecomputer.txt" String 剩下的应该不用说了吧

jonesliu7618 2013-07-19

打赏
举报

目录是存在的

fzfei2 2013-07-19

打赏
举报

你的目录是不是不存在，CreateTextFile 好像不会创建目录的

vbs创建一个文件

相关推荐