Set exeRs = objws.Exec("pscp -r -scp -pw " & password & " " & loginid & "@" & host & ":" & data_path & fileName & " " & windows_path)
但在測試的時候,當拷貝的檔案比較大,拷貝時間較長的時候就出現cmd視窗死在那裡不動了的情況,直接在cmd視窗中運行pscp拷貝相同的檔案就可以正常 結束。也找不到是什麼原因,於是改成run方法試一下,結果run方法是可以正常結束的,但是原來的代碼中有需要取得cmd的控制台輸出資訊,而run卻 不方便取得控制台資訊,最後只能先把控制台資訊重新導向到檔案中,然後程式在讀取。最後說一下對run和exec兩個方法的區別的一些理解:
這兩個方法的聲明如下
Function Exec(ByVal Command As String) As WshExec
Function Run(ByVal Command As String, [ByVal WindowStyle], [ByVal WaitOnReturn]) As Integer
可以看出幾點區別:
1,run的返回值是一個整數,就是0或1成功和失敗兩個狀態,而exec方法的返回值是一個對象,從返回對象中可以獲得控制台輸出資訊和控制台錯誤資訊,即StdOut和StdErr屬性等。例如:
Set exeRs = objws.Exec("pscp -r -scp -pw 。。。。"
errMsg = exeRs.StdErr.ReadAll()
stdMsg = oExec.StdOut.ReadAll()
可以取道控制台錯誤和控制台資訊。
2,Run 的後兩個參數,一個是cmd視窗的風格,一個是是否等待執行完成。最後一個參數很有用,如果你希望等待本次cmd執行的程式結束後,在執行 objws.Exec後面的語句的話,只要設置這個參數為true就可以了,否則後面的語句將不等待cmd視窗完成,直接運行(我們項目就有這個需求,從伺服器上拷貝一個檔案到本地後,馬上要開啟這個檔案操作,如果檔案沒有拷貝完就去操作就會出錯的。)。另外,如果你使用exec 方法的時候,如果希望等待cmd中程式執行完後,在執行後面的語句,也可以通過下面的方法:
oExec.StdErr.ReadAll()或者oExec.StdOut.ReadAll(),道理上也應該好理解,要得到輸出的資訊,肯定要cmd執行完後才會有輸出的。
參數的詳細資訊可以參考msdn
http://msdn.microsoft.com/zh-cn/library/ateytk4a(en-us,VS.85).aspx
http://msdn.microsoft.com/zh-cn/library/d5fk67ky(en-us,VS.85).aspx