Question

vba如何获取Shell执行程序的外部输出？或者如何将外部程序的执行结果重定向到一个文件？

Answer 1

FSO（Filesy System Object）操作文件，要重定向的话，需要以命令行形式执行脚本并在命令行里指定要重定向到的文件。
命令行方式如下：cscript 脚本名称 >> "D:\Program Files\diffcount\myresult.txt"
脚本里直接写入文件的方式（FSO）：
只有用Exec执行命令，才能获取输出流并写入文件。

Const ForWriting = 2
resultfile = "D:\Program Files\diffcount\myresult.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set myfile = fso.OpenTextFile(resultfile, ForWriting, True)
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oExec = WshShell.Exec(shell_cmd)
Set oStdOut = oExec.StdOut
Do Until oStdOut.AtEndOfStream
myfile.WriteLine oStdOut.ReadLine
Loop
myfile.Close