vba如何獲取Shell執行程序的外部輸出？或者如何將外部程序的執行結果重定向到壹個文件？

FSO（Filesy System Object）操作文件，要重定向的話，需要以命令行形式執行腳本並在命令行裏指定要重定向到的文件。

命令行方式如下：cscript 腳本名稱 >> "D:\Program Files\diffcount\myresult.txt"

腳本裏直接寫入文件的方式（FSO）：

只有用Exec執行命令，才能獲取輸出流並寫入文件。

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