[amel27]

Hector, не вижу смысла городить огород из VBS и CMD:

Код:

Set cF = WScript.CreateObject("Scripting.FileSystemObject").GetFolder("d:\hz").Files
Do While vbTrue
  If cF.Count > 0 Then MsgBox "Новые файлы"
  WScript.Sleep(5000)
Loop