Rulla din egen version kontroll/automatisk backup (7 / 9 steg)
Steg 7: snapshot.vbs förklarade
Dim FriendlyDateDim FriendlyTimeFriendlyDate = Ersätt (datum, "/", "-") FriendlyTime = Mid (ersätta (tid, ":", "-"), 1, 5)
Detta skapar två variabler, FriendlyDate och FriendlyTime, och ställer dem till aktuellt datum och tid. Funktionerna Ersätt finns det eftersom datumet i VBSCript representeras i form 28/11/2008, men Windows gillar inte snedstreck tecken i ett filnamn, så att de ersätts med streck. Samma sker till den: tecken i tiden (12: 34:56). Kommandot Mid också remsor av sekunder från tiden, så "28/11/2008_12:34:56" blir "28-11-2008_12-34".
Dim WShellSet WShell = CreateObject("Wscript.Shell")
Denna del är att skapa ett gränssnittsobjekt, effektivt kommandotolken för VBScript, så att den kan använda kommandoraden kommandon som "flytta".
WShell.Run ("cmd/c flytta" Wscript.Arguments(0) ".\Backups\" + FriendlyDate + "_" + FriendlyTime + "_" + + Wscript.Arguments(0))
Detta säger VBScript att utfärda en flytta till dess befalla lina objekt. För att bryta denna linje ner ytterligare skulle kräva mig att komma in i detalj på hur VBScript hanterar strängar så jag avstår från detta. I huvudsak, WScript.Arguments(0) blir det filnamn du passerat i skriptet tidigare (archive.zip) och FriendlyDate och FriendlyTime blir faktiska textvärdet för datum och tid, till exempel "18-10-2008" och "14-30". Plus tecknen tillsammans de olika bitarna till en lång sträng.
Det sista kommandot som skickas till kommandoraden ser ut
Flytta archive.zip.\Backups\18-10-2008_14-30_archive.zip. Om du vill spara säkerhetskopiorna på en annan plats kan du ändra namnet på mappen från ".\Backups\" till, till exempel "E:\My_Lovely_Version_Control\". Om du inte vill att tidstämplarna, då kan du ta bort den "+ FriendlyTime" men då endast ett arkiv per dag kan lagras (några ytterligare säkerhetskopior kommer att skriva över det befintliga arkivet).