Paso 7: snapshot.vbs, explicó
Dim FriendlyDateDim FriendlyTimeFriendlyDate = Replace(Date, "/", "-")FriendlyTime = Mid(Replace(Time, ":", "-"), 1, 5)
Esto crea dos variables, FriendlyDate y FriendlyTimey establece a la fecha y hora actuales. Las funciones de reemplazo están allí porque la fecha en VBSCript es representada en forma 28/11/2008, pero Windows no le gusta los caracteres de barra diagonal en un nombre de archivo, por lo que son reemplazados con guiones. El mismo se realiza a los: personajes en el tiempo (12: 34:56). El comando Mid también tiras los segundos de la hora, así que "28/11/2008_12:34:56" se convierte "28-11-2008_12-34".
Dim WShellSet WShell = CreateObject("Wscript.Shell") Esta parte es crear un objeto shell, efectivamente el símbolo para VBScript, por lo que pueden utilizar comandos de línea de comandos como "mover".
WShell.Run ("cmd /c move " + Wscript.Arguments(0) + " .\Backups\" + FriendlyDate + "_" + FriendlyTime + "_" + Wscript.Arguments(0)) Esto dice VBScript para emitir un comando de mover a su objeto de línea de comandos. Para romper esta línea más me requeriría entrar en los detalles de cómo VBScript maneja cadenas para que se abstengan de hacerlo. Esencialmente, WScript.Arguments(0) se convierte en el nombre del archivo que pasa a la secuencia de comandos anterior (archivo.zip) y FriendlyDate y FriendlyTime el valor de texto de la fecha y hora, por ejemplo "18/10/2008" y "14-30". Los personajes más unen los distintos bits en una cadena larga.
Parece el comando final que se pasa a la línea de comandos
mover.\Backups\18-10-2008_14-30_archive.zip archivo.zip. Si desea guardar las copias de seguridad en una ubicación diferente, puede cambiar el nombre de la carpeta de ".\Backups\", por ejemplo, "E:\My_Lovely_Version_Control\". Si no desea que los sellos de tiempo, entonces usted puede eliminar el "+ FriendlyTime" pero luego se puede almacenar sólo un archivo por día (cualquier más copias de seguridad sobrescribirán el archivo existente).
