VBSにて同期処理をするSubルーチンを作成したのですが、下記のように記載したのですが
エラーがでます。
<エラーメッセージ>
1行目
私には')'があるようにしか見えないのですが。。
どこが誤っているのでしょう?
エラー:「')'がありません」
コード:800A03EE
Microsoft VBScriptコンパイルエラー
⇒型宣言しているのが原因でした。ありがとうございました。
追加で質問させてください。
lngProcHdle = OpenProcess(PROCESS_QUERY_INFORMATION Or SYNCHRONIZE, _True, dblStatShell)
の行にて、
「文字が正しくありません」というエラーがでます。
何が原因でしょうか?
Private Sub SyncWait (ByVal dblStatShell As Double) Dim lngProcHdle As Long ' 既存プロセスのハンドル格納変数 Dim lngExitStat As Long ' 関数終了状態戻り値格納変数 Dim lngExitCode As Long ' プロセス終了状態格納変数 ' Shellプロセスハンドル取得 lngProcHdle = OpenProcess(PROCESS_QUERY_INFORMATION Or SYNCHRONIZE, _True, dblStatShell) ' 終了状態評価ループ Do lngExitStat = GetExitCodeProcess(lngProcHdle, lngExitCode) Loop While lngExitCode = STILL_ACTIVE End Sub
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/06/14 07:39
2017/06/14 07:41
2017/06/14 08:21