Возможно ли сделать резервную копию папок оболочки в XP с помощью скрипта VB или WSH?

Question

Я хотел бы сделать резервную копию папок оболочки на моей машине XP. Это полезно для меня, потому что когда я переустанавливаю XP, я могу просто восстановить резервные копии папок оболочки.

Ребята, можете ли вы дать мне старт или указать мне правильное направление?

'*************************************
' Author:
'
' This script backs up shell folders.
'
' Source:
' Destination:
'
'-------------------------------------
'Rev #          Changes
'-------------------------------------
'1.0            started
'*************************************

'*********
'VARIABLES
'*********

dim filesys
dim source
dim destination

source="C:\Documents and Settings"
destination="C:\Temp"    'will change in future revisions

'*********
'OBJECTS
'*********
set filesys=CreateObject("Scripting.FileSystemObject")


if filesys.FolderExists(source) Then
    filesys.MoveFolder source, destination
    MsgBox("Folder Moved")
End if

Answer 1

Возможно, вам больше повезет, если использовать SpecialFolders (описанный здесь), чем жестко задавать ваш путь к исходной папке, поскольку ОС будет управлять поиском фактических папок, которые могут отсутствовать в C:\Documents and Settings или любом другом месте.

Answer 2

Пример простого пакетного скрипта для копирования папки «Мои документы» в папку на другом диске / разделе

@ эхо выключено

если не существует "S:\backup", mkdir "S:\backup"

xcopy "% userprofile%\ Мои документы" "S:\backup" /e /v /c /h /r /y