Automatisches Kopieren einer Datei in Unterordner - Fehler

Option Explicit 
Const Path     = "E:\ConstructionOrder"   
Const Template = "LZ.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