ArcFolder = "D:\Arhiv\Backup"

Sub SINK_OnObjectReady(objReceivedEvent, objAsyncContext)
 Set WshShell = Wscript.CreateObject("Wscript.Shell")
 FlashName = objReceivedEvent.TargetInstance.Name
 CmdStro = "xcopy " + ArcFolder + " " + FlashName + "\Backup\ /D /E /Y"
 WshShell.Run CmdStro, 1
End Sub

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set MySink = WScript.CreateObject("WbemScripting.SWbemSink","SINK_")

objWMIservice.ExecNotificationQueryAsync MySink, "SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE TargetInstance ISA 'Win32_LogicalDisk' AND TargetInstance.DriveType = 2"

While (True)
 Wscript.Sleep(1000)
Wend