Copy Removable
Publicado: 24 Sep 2012, 22:58
Buenas , los dejo esta simple funcion baseada en el ThumbSuck
mas curta, rapida e sin dependencias , ademas el bucle no consome tanto
espero sirva
Saludos
mas curta, rapida e sin dependencias , ademas el bucle no consome tanto
espero sirva
Saludos
Código: Seleccionar todo
#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