VBS oder Batch um eine Datei in Unterordner zu verschieben

Option Explicit

Const Path     = "C:\irgendwo\Aufträge"  
Const Template = "example.jnt"  
Const Interval = 1

Dim objFSO, objWMIService, objEvent, colEvents, sDrive, sFolder

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")  
sDrive = objFSO.GetDriveName(Path)
sFolder = Replace(Mid(Path, 3) & "\", "\", "\\", 1, -1, vbTextCompare)  

Set colEvents = objWMIService.ExecNotificationQuery( _
  "SELECT * FROM __InstanceCreationEvent" & _  
  " WITHIN " & CStr(Interval) & _  
  " WHERE Targetinstance ISA 'CIM_Directory'" & _  
  " AND TargetInstance.Drive='" & sDrive & "'" & _  
  " AND TargetInstance.Path='" & sFolder & "'")  

Do
  Set objEvent = colEvents.NextEvent()
  objFSO.CopyFile objFSO.BuildPath(Path, Template), objEvent.TargetInstance.Name & "\"  
Loop