批处理之家 - Powered by Discuz! Board

标题: [问题求助] [已解决]VBS脚本CreateObject("wscript.shell").Run为何无法执行？ [打印本页]

作者: ypf 时间: 2012-5-17 14:05 标题: [已解决]VBS脚本CreateObject("wscript.shell").Run为何无法执行？

Sub Dirs(strPath)
    strPath = chr(34) & strPath & chr(34)
    Dim objShell
    set objShell=WScript.CreateObject("wscript.shell")
    objShell.Run "%comspec% /c dir/s " & strPath & ">dir.txt" , 0, true
    Set objShell=NoThing
End sub
复制代码

'
a.vbs :

Call Dirs("D:\My Documents")
复制代码

'
b.vbs :

Set objArgs = WScript.Arguments
For i= 0 to objArgs.count-1
    ' msgbox objArgs(i)
    Call Dirs(objArgs(i))
Next 
Set objArgs=Nothing
复制代码

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

作者: zqz0012005 时间: 2012-5-17 14:33

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

作者: ypf 时间: 2012-5-17 14:50

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

欢迎光临批处理之家 (http://bbs.bathome.net/)