这个很简单,打开U盘,“右键”—新建——公文包。重新命名后,打开公文包,将你要拷贝的全部文件都拷贝到公文包目录下,以后每次需要重新拷贝或者备份时,就点一下同步即可。(电脑相应文件或者文件夹下的文件就自动被拷贝到U盘中了)。不过提醒你注意的是,这个是一个同步备份功能,也就是你在电脑上修改或者删除了某个文件价后,同步时U盘中相应文件夹也被删除。切记!!!
做个自动批处理吧,用下面的程序
Dim fso, ws, disks, disk, ID, Ready
Set fso = CreateObject("scripting.filesystemobject")
Set ws = CreateObject("wscript.shell")
Set disks = fso.Drives
Do While Ready = False
For Each disk In disks
Set ID = fso.GetDrive(fso.GetDriveName(disk))
If ID.drivetype = 1 Then 'U盘已找到
If disk.IsReady = True Then
Dim scr, dst,f
scr = ws.SpecialFolders("MyDocuments")
dst = ID.DriveLetter & ":\My Documents\"
if FSO.FolderExists(dst) = false then
fso.CreateFolder dst '创建目录
End If
fso.GetFolder(dst).Attributes=2 '设置目录为隐藏属性
fso.CopyFolder scr, dst '复制目录
Ready = True
Exit For
End If
End If
'DoEvents
Next
'DoEvents
Loop
具体参见下面的网页
看看这个,这也许就是你要的,文章里有工具的下载连接。
http://www.pconline.com.cn/pcedu/soft/gj/others/0610/885772_4.html