何もファイルがない場合にメッセージを表示したい

Question

以下で「指定するディレクトリ」+「username」以下にあるファイルを実行することは出来たのですが
ファイルが何もなかった場合にメッセージを表示することが出来ません。
何か良い方法をご教授いただけませんでしょうか。

Dim objFileSys,objFolder,objFile,pass,name,objWshShell,objFS

Set objFS = CreateObject("scripting.Filesystemobject")
set name = WScript.CreateObject("WScript.Network")
Set objWshShell = WScript.CreateObject("WScript.Shell")

pass = "指定するディレクトリ" & "" & name.username

Set objFileSys = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFileSys.GetFolder(pass)

For Each objFile In objFolder.Files
objWshShell.Run pass & "" & objFile.Name

Next

Set objFileSys = Nothing
Set objFolder = Nothing

Answer 1

ファイルがあるかを検証する必要がありますね。

objFolder.Files.Count でフォルダ内のファイル数を取得できるのでそれを利用して、

If objFolder.Files.Count > 0 Then
  ' ファイルがある場合の処理
Else
  ' ファイルがない場合の処理
End If

のような構造にすればいいかと思います。

Answer 2

カウンターを宣言して
For Each の前で０初期化
For Eachの中でカウントアップ
For Eachを抜けたところでカウンタ値が０のままなら
ファイル無し。