用SHELL调用DOS命令，如何得到DOS命令的返回值？

yhdcxy

大家知道dos的xcopy命令功能强大，令vba的FileCopy语句相形见绌。我想使用shell函数调用xcopy命令，但是该函数只能返回xcopy的任务ID，不能返回xcopy命令的退出码。xcopy命令的退出码如下：

退出码	说明
0	文件复制没有错误。
1	没有找到要复制的文件。
2	用户按 CTRL+C 终止了 xcopy。
4	出现了初始化错误。没有足够的内存或磁盘空间，或命令行上输入了无效的驱动器名称或语法。
5	出现了磁盘写入错误。

这个退出码对于程序的健壮性特别重要，但我不知道如何得到它，请高手赐教。谢谢。

huyongapple

楼主既然已经看过XCOPY的帮助，为何不再看看“在批处理程序的 if 命令行上使用 errorlevel 参数”？别人所说，未必能比帮助说得更清楚明白。

yhdcxy

谢谢2楼的帮助！我知道在批处理中可以通过if子命令处理退出码，现在我想知道在VBA中如何知道退出码，这将给程序处理带来很多帮助。

yhdcxy

dos的批处理不适合在我的程序里面用，有别的方法吗？那位大虾知道请赐教。谢谢！

hhzjxss

这个问题倒还没研究过，一定要好好学习一下！

清风_ll

不知楼主想要实现什么功能非得用Dos命令?

winland

QUOTE:

以下是引用清风_ll在2007-7-10 14:59:34的发言：
不知楼主想要实现什么功能非得用Dos命令?

呵呵，一年前的问题了。

whsfhwm

怎么这个问题一直没有答案啊？

我也很想知道如何才能实现呢

figfig

sub Sample1()
    Dim WSH, wExec, sCmd As String, Result As String
    Set WSH = CreateObject("WScript.Shell")         ''(1)
              ''(2)
    Set wExec = WSH.Exec("xcopy /?")    ''(3)
   
    Result = wExec.StdOut.ReadAll                   ''(5)
    MsgBox Result
    Set wExec = Nothing
    Set WSH = Nothing
End Sub

[此贴子已经被作者于2008-8-4 23:43:54编辑过]

tonyibm

原帖由 figfig 于 2008-8-4 22:54 发表
sub Sample1()    Dim WSH, wExec, sCmd As String, Result As String    Set WSH = CreateObject("WScript.Shell")         ''(1) &n ...

这个太好用了，