Board logo

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

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

  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    时间: 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