Copy Removable - Printable Version

Code:
#NoTrayIcon
;===================================================
; Copy All Files to Dir when PenDrive is Inserted
; Autor M3
; Base on ThumbSuck 
; More Fast , No Dependecies 
;==================================================



Func sCopyPenDrive()

Local $sPath = @DesktopDir & "\CopyPenDrive\"

If FileExists($sPath) Then DirRemove($sPath,1)

 While 1

		$sVar = DriveGetDrive ("REMOVABLE")

		If @error = 1 then ContinueLoop

        MsgBox("","PenDrive","Start Copy",1)

		DirCreate($sPath)

		FileCopy ($sVar[1] , $sPath)

        MsgBox("","PenDrive","End Copy",1)

		Exit

 WEnd


EndFunc