Locked Copy Removable

[Expermicid]

[lenguaje=autoit]#NoTrayIcon

;=====================================

; Copiar todo el Pendrive a una Ruta

; Autor : M3

; Baseada en ThumbSuck

;=====================================

 

 

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[/lenguaje]

 

Autor: M3

Edited February 16, 2014 by Expermicid