質問: errorMsg & tmpLine & vbCrLf & tmpFile.ReadLine & vbCrLf End If Loop Loop '以下は、実行結果が1件以上ある(空ではない)場合はメールを送信して終了、0件なら実施せず終了、を実現している。 'ここから先は問題ない。 If Not IsNull(errorMsg) Then ・・・・・・ ```
回答: これ、そもそもエラーでませんか? VBScriptでは変数の型の定義はできません。 また日本語変数名も使えません。 もしかしてVBScriptではなくVBA? 少なくとも上記の指摘をクリアすればファイル名の一覧は取得できていることは確認できています。 単体で動いているのなら上記を修正すれば動くのではないでしょうか。