【测试】VBS偶遇Permission denied

为了准备性能测试用的大量测试数据，写了一个很简单的VBS脚本来实现复制一定数量的文件，效果基本等同于对一个文件进行Ctrl+C,Ctrl+V,代码如下

' Created by wz 2009.10.26

Dim fso, strDestName, strBaseFile, strSRC, strDES, NumOfFiles

'------------------------------------------
' strSRC -> Source file                 ---
' strDES -> Destination folder          ---
' NumOfFiles -> Number of files         ---
'------------------------------------------

 strSRC = "D:\SRC\Test.txt"
 strDES = "D:\SRC"
 NumOfFiles = 30
'------------------------------

if msgbox(NumOfFiles &" Files will copy " & chr(10) & chr(10) & "From: " & strSRC & chr(10) & "To: " & strDES, 1, " <<File Copy>>  Created by wz") = 1 then

Set fso = CreateObject("Scripting.FileSystemObject")
strBaseFile = fso.GetFileName(strSRC)
'msgbox strBaseFile
FOR i = 1 TO NumOfFiles
if i = 1 then
elseif i = 2 then
strDestName = "Copy of " & strBaseFile
else
strDestName = "Copy (" & i-2 & ") of " & strBaseFile
end if
fso.CopyFile strSRC, strDES & strDestName
NEXT
msgbox i-1 &" Files done! ", 0, "File Copy"

end if

保存为*.vbs 运行报错

当时觉得很是迷惑，以前用的好好的，怎么就有了神马权限问题了呢？

换了目录，机器，再执行，问题依旧

Google,Baidu.. 之后，怀疑自己用FSO有问题，有仔细看看，找不出严重问题

wsh呢，只了解一点点，发现不了问题

到底权限问题出在哪里呢？

最后随手加了个“\”

 strDES = "D:\SRC\"

终于问题得以解决，原来就是小小的“\”导致了上面的问题。

转载于:https://www.cnblogs.com/jwang58/archive/2011/03/15/1985000.html