「Windows プロセッサは動作を停止しました」エラーが発生！

前提・実現したいこと

下のソースコードを実行するとエラーメッセージが出る端末があります。
※部署内のすべての端末(WindowsやOffice環境)で出ているわけではありません。

何が原因で出るのかが知りたいです。

発生している問題・エラーメッセージ

![イメージ説明](e6f143b1270a7e8f99a5814e268b9c51.jpeg)

該当のソースコード

VBA
1    strCommand = "cmd /c dir "
2    strCommand = strCommand & """"          
3    strCommand = strCommand & strTargetPath
4    strCommand = strCommand & "\"
5    strCommand = strCommand & strTargetFileName
6    strCommand = strCommand & """"
7    strCommand = strCommand & " /B /A:-D "
8    
9    'サブフォルダまで検索する場合の処理
10    If blnSubFolderFlg = True Then
11        strCommand = strCommand & "/S > "
12    Else
13        strCommand = strCommand & " > "
14    End If
15    
16    strCommand = strCommand & Environ("TEMP") & "\" & cOutputFileName
17    
18    With CreateObject("Wscript.Shell")
19        .Run "cmd /c " & strCommand, 0, True
20    End With

試したこと

自分の端末とエラーが出た端末で動作させてみました。
自分の端末では出ないのですが、エラーが出た端末では
.Run "cmd /c" & strCommand, 0, True
のところでエラー画面が出ます。

補足情報（FW/ツールのバージョンなど）

Windows環境：Windows 7 SP1
Office環境：Office2010 SP1

行動規範の内容に同意します

回答1件

以下の変数がどのようになっているかわからないので何ともいえませんが、正しく設定されているかご確認ください。
strTargetPath
strTargetFileName
blnSubFolderFlg ←これはエラーの原因にはならないはず
cOutputFileName
環境変数TEMP

またcmd /cが二重になっています。
.Runの方は削除してもよいでしょう。

VBA
1.Run "cmd /c " & strCommand, 0, True
2↓
3.Run strCommand, 0, True

余談ですがEnviron関数はOffice系VBAの関数と思われます。
タグにコマンドプロンプトがありますが、どのように実行しているのでしょうか。

投稿2018/11/20 07:43

ttyp03

総合スコア17000

あなたの回答

tips

プレビュー

行動規範の内容に同意します

質問の解決につながる回答をしましょう。サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。また、読む側のことを考えた、分かりやすい文章を心がけましょう。

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう！

ただいまの回答率
85.31%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう！