我想备份我的 XP 计算机上的 shell 文件夹。这对我来说很有用,因为当我重新安装 XP 时,我只需恢复那些备份的 shell 文件夹即可。
你们可以帮助我开始或者给我指明正确的方向吗?
'*************************************
' 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
答案1
这是一个简单批处理脚本的示例,用于将“我的文档”文件夹复制到另一个驱动器/分区上的文件夹
@echo 关闭
如果不存在“S:\backup”mkdir“S:\backup”
xcopy“%userprofile%\我的文档”“S:\backup”/ e / v / c / h / r / y
答案2
使用 SpecialFolders (描述在这里) 而不是硬编码源文件夹的路径,因为操作系统将管理定位实际文件夹,而这些文件夹可能不在 C:\Documents and Settings 或任何此类位置。