ここにあるコードを使用しようとしていますが、HTA を微調整しています。それはある程度機能します:
Set wshShell = WScript.CreateObject( "WScript.Shell" )
に変わります:
Set wshShell = CreateObject( "WScript.Shell" )
ポップアップが表示されますが、クリックするまで消えません。プロセスの実行中に表示され、終了すると消える必要があります。私の実行がこれに失敗するのはなぜですか?
ProgressMsg "Copying, Please wait.", "File Being Copied"
strCMD = "cmd.exe /c robocopy " & strLocalSemesterCourse & " " & strServerSemesterCourse &" " & strFileName & " /LOG+:" & strLogName & " /V /FP /TEE"
nReturn = objShell.Run(strCMD, 1, true)
ProgressMsg "", "Finished"