Stap 7: snapshot.vbs uitgelegd
Dim FriendlyDateDim FriendlyTimeFriendlyDate = Replace(Date, "/", "-")FriendlyTime = Mid(Replace(Time, ":", "-"), 1, 5)
Dit maakt van twee variabelen, FriendlyDate en FriendlyTime, en stelt hen op de huidige datum en tijd. De Vervang-functies zijn er omdat de datum in VBSCript is vertegenwoordigd in het formulier 28/11/2008, maar Windows niet graag de slash-tekens in de bestandsnaam opgeeft, dus ze worden vervangen door streepjes. Hetzelfde is gedaan om de: tekens in de tijd (12: 34:56). De Mid-opdracht ook strips uit de seconden vanaf het moment, dus "28/11/2008_12:34:56" wordt "28-11-2008_12-34".
Dim WShellSet WShell = CreateObject("Wscript.Shell") Dit deel is het creëren van een shellobject, effectief een opdrachtprompt voor VBScript, zodat het de opdrachten van de opdrachtregel zoals kunt "move".
WShell.Run ("cmd /c move " + Wscript.Arguments(0) + " .\Backups\" + FriendlyDate + "_" + FriendlyTime + "_" + Wscript.Arguments(0)) Dit vertelt VBScript een beweging-opdracht op de opdrachtregel-object geven. Om te breken deze lijn verder zou vereisen me om in de details van hoe VBScript tekenreeksen omgaat, dus ik zal onthouden dat te doen. In wezen, WScript.Arguments(0) wordt de bestandsnaam die u aan het script eerder (archive.zip doorgegeven) en FriendlyDate en FriendlyTime worden de werkelijke tekstwaarde van de datum en tijd, bijvoorbeeld "18-10-2008" en "14-30". De plus tekens gezamenlijk de verschillende stukjes tot één lange tekenreeks.
De laatste opdracht die is doorgegeven aan de opdrachtregel ziet eruit als
verplaatsen van archive.zip.\Backups\18-10-2008_14-30_archive.zip. Als u wilt bewaren uw back-ups naar een andere locatie kunt dan u de naam van de map van ".\Backups\", bijvoorbeeld "E:\My_Lovely_Version_Control\". Als u niet dat de tijdstempels wilt, dan kunt u het "+ FriendlyTime", maar dan slechts één archief per dag kan worden opgeslagen (verdere back-ups zal het overschrijven van het bestaande archief).
