[已解决]VBS脚本CreateObject("wscript.shell").Run为何无法执行？

ypf

1. Sub Dirs(strPath)
   
2.     strPath = chr(34) & strPath & chr(34)
   
3.     Dim objShell
   
4.     set objShell=WScript.CreateObject("wscript.shell")
   
5.     objShell.Run "%comspec% /c dir/s " & strPath & ">dir.txt" , 0, true
   
6.     Set objShell=NoThing
   
7. End sub

复制代码

'
a.vbs :

1. Call Dirs("D:\My Documents")

复制代码

'
b.vbs :

1. Set objArgs = WScript.Arguments
   
2. For i= 0 to objArgs.count-1
   
3.     ' msgbox objArgs(i)
   
4.     Call Dirs(objArgs(i))
   
5. Next
   
6. Set objArgs=Nothing

复制代码

''
a.vbs 可產生 dir.txt
b.vbs 拖曳資料夾至此，則無反應？

zqz0012005

拖放时脚本的工作目录为 explorer shell 的工作目录，一般为%USERPROFILE%，而不是当前目录。
dir "%USERPROFILE%\dir.txt" 看有没有那个文件

ypf

感謝版主指正，自己程度太低了！哈！