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

311
rashid

Я хотел бы сделать резервную копию папок оболочки на моей машине 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
0
Вы можете использовать любой тип сценариев, который вам нравится. Где именно вы хотите сделать резервную копию папок? вторичный HD, сетевой ресурс, сайт ftp? MaQleod 13 лет назад 0
на раздел. Я хочу с чего-то начать. Я запустил скрипт в моем отредактированном вопросе rashid 13 лет назад 0

2 ответа на вопрос

1
OldTroll

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

1
MaQleod

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

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

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

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

Будет ли он также создавать резервные копии файлов оболочки на сетевом диске, если я просто укажу «F: \ backup» и т. д. Спасибо. rashid 13 лет назад 0

Похожие вопросы