Copia de Seguridad, Incremental de Carpetas en batch
Publicado: 23 Nov 2006, 17:16
Si tiene un disco duro externo o interno, o también una conexión de red como medio de Copia de Seguridad.
Para guardar algunos datos, tiene aqui un Programa de Sincronización en un sentido.
Se usa de manera que tiene el programa en el escritorio o en otro sitio y al hacer doble click empieza directamente
a hacer la copia.
En la práctica es una orden o comando con el que se copian los datos nuevos directamente y sale un informe en el Notepad con lo detalles de la copia.
Hay q definir las carpetas $BackupDesde = "g:\test", $BackupHaciaCarpeta = "g:\Mybackup" con sus carpetas deseadas.
La opción recursiva(Subdirectorios) no esta del todo acabada, pruebala
Esto es una versión Beta no garantizamos que el programa haga exactamente lo que usted desea
link http://www.emesn.com/mas/Copia_Segurida ... mental.au3
Para guardar algunos datos, tiene aqui un Programa de Sincronización en un sentido.
Se usa de manera que tiene el programa en el escritorio o en otro sitio y al hacer doble click empieza directamente
a hacer la copia.
En la práctica es una orden o comando con el que se copian los datos nuevos directamente y sale un informe en el Notepad con lo detalles de la copia.
Hay q definir las carpetas $BackupDesde = "g:\test", $BackupHaciaCarpeta = "g:\Mybackup" con sus carpetas deseadas.
La opción recursiva(Subdirectorios) no esta del todo acabada, pruebala
Esto es una versión Beta no garantizamos que el programa haga exactamente lo que usted desea
link http://www.emesn.com/mas/Copia_Segurida ... mental.au3
;Author Basicos foro http://www.autoit.es
#include <Date>
#include <file>
Opt("trayicondebug", 1)
Global $BackupDesde = "g:\test", $BackupHaciaCarpeta = "g:\Mybackup"
$iRekursive=0
$message = ""
$backupName=StringLeft(StringReplace(_NowCalc(), "/", ""), 6) & "_BackUpReport.log"
$backupLog = @ScriptDir & "\" & $backupName
SplashTextOn("My Backup", "", 800, 600, 100, 200, 4, "")
_FileWriteLog($backupLog, @CRLF &@CRLF & "Resultados de la copia incremental desde " & $BackupDesde & " hacia " & $BackupHaciaCarpeta & "..:" & @CRLF)
DateiKopyDirInkre($BackupDesde, $BackupHaciaCarpeta, $backupLog,$iRekursive)
Run("Notepad.exe " & $backupLog)
WinWait($backupName,"")
If Not WinActive($backupName,"") Then WinActivate($backupName)
WinWaitActive($backupName,"",5)
Send("{CTRLDOWN}{END}{CTRLUP}")
Exit
Func DateiKopyDirInkre($BackupDesde, $BackupHaciaCarpeta, $backupLog,$iRekursive)
_FileWriteLog($backupLog, @crlf&" A la carpeta.... " & $BackupHaciaCarpeta)
;FileChangeDir($BackupDesde)
$search = FileFindFirstFile($BackupDesde & "\*.*")
; Test ob gefunden
If $search = -1 Then
ControlSetText("My Backup", "", "Static1", $message & " No existe la carpeta desde de la Mascara " & $BackupDesde)
_FileWriteLog($backupLog, "*Fehler Kopiert... " & " No existe la carpeta desde de la Mascara " & $BackupDesde)
Else
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
If FileGetAttrib($BackupDesde & "\" & $file) = "D" Then
if $iRekursive then DateiKopyDirInkre($BackupDesde & "\" & $file, $BackupHaciaCarpeta & "\" & $file, $backupLog,$iRekursive)
Else
DateiKopyInkrementelle($BackupDesde & "\" & $file, $BackupHaciaCarpeta & "\" & $file, 1, $backupLog)
EndIf
WEnd
; Handle Zu machen
FileClose($search)
EndIf
EndFunc ;==>DateiKopyDirInkre
Func DateiKopyInkrementelle($fromfile, $tofile, $NeuKopieren, $backupLog)
$wFehler = ""
If Not FileExists($tofile) Then
If $NeuKopieren Then
If Not FileCopy($fromfile, $tofile, 9) Then
_FileWriteLog($backupLog, "*Error al Copiar ... " & FileGetShortName($fromfile) & "->" & FileGetShortName($tofile))
$wFehler = " nicht kopiert"
Else
_FileWriteLog($backupLog, "+Bien al Copiar ... " & FileGetShortName($fromfile) & "->" & FileGetShortName($tofile))
EndIf
EndIf
Else
$fromCrc = FileGetAttrib($fromfile) & FileGetSize($fromfile) & FileGetTime($fromfile)
$toCrc = FileGetAttrib($tofile) & FileGetSize($tofile) & FileGetTime($tofile)
If $fromCrc <toCrc>DateiKopyInkrementelle If Not FileCopy($fromfile, $tofile, 9) Then
_FileWriteLog($backupLog, "*Error al Copiar ... " & FileGetShortName($fromfile) & "->" & FileGetShortName($tofile))
$wFehler = "<nicht>" & FileGetShortName($tofile))
EndIf
Else
_FileWriteLog($backupLog, "=Nada Ya existía ... " & FileGetShortName($fromfile) & "->" & FileGetShortName($tofile))
EndIf
EndIf
$message &= "Copiar " & $fromfile & " hacia " & $tofile & $wFehler & @CRLF
ControlSetText("My Backup", "", "Static1", $message)
EndFunc ;==>DateiKopyInkrementelle