Option Explicit

Dim Tst
Tst = "c:\1test"
Tst = "D:\temp.zw\"
Tst = "D:\temp.zw"
Tst = FileCreationEvent( ".", Tst )
MsgBox "=>" & Tst & "<=", , "0005 :: "

'************************************************************** 
Function FileCreationEvent( PC, FolderOnPC)
'************************************************************** 
   Dim Txt
  FolderOnPC = Replace( FolderOnPC, "\", "\\\\" )
	' MsgBox "FolderOnPC: " & FolderOnPC, , "0012 :: " 
   Dim objWMIService		: Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & PC & "\root\cimv2")
   Dim colMonitoredEvents	: Set colMonitoredEvents = objWMIService.ExecNotificationQuery ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE Targetinstance ISA 'CIM_DirectoryContainsFile' and TargetInstance.GroupComponent= 'Win32_Directory.Name=""" & FolderOnPC & """'")
	Txt = ""
   Dim objLatestEvent
   Do
      Set objLatestEvent = colMonitoredEvents.NextEvent
      Txt = Txt & vbCRLF & Now() & vbTab & objLatestEvent.TargetInstance.PartComponent 
      MsgBox Txt, 4096, "0020 :: "
   Loop
End Function ' FileCreationEvent( PC, FolderOnPC)