标题: [问题求助] [已解决]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://bathome.net./) |
Powered by Discuz! 7.2 |