程序你自己写。
主要的一个函数，我告诉你：
VB文件属性代码
vbNormal 0 正常的（Dir 和 SetAttr 的缺省值） 
vbReadOnly 1 只读的 
vbHidden 2 隐藏的 
vbSystem 4 系统文件 
vbVolume 8 卷标 
vbDirectory 16 目录或文件夹 
vbArchive 32 文件自上一次备份后已经改变
以上这些数值可以 "综合" 相加运用，当一个文件只读且又是保存属性，则属性代码为 1 + 32 = 33 
隐藏文件夹的属性代号 2 + 16 = 18。
  
使用 GetAttr (得知文件的属性) 
Private Sub Command1_Click()  
Print GetAttr("C:\Autoexec.Bat")  
If GetAttr("C:\Autoexec.Bat") And 1 Then Print "此文件只读"  
If GetAttr("C:\Autoexec.Bat") And 2 Then Print "此文件隐藏"  
If GetAttr("C:\Autoexec.Bat") And 4 Then Print "此文件为系统文件"  
If GetAttr("C:\Autoexec.Bat") And 16 Then Print "此文件为文件夹"  
If GetAttr("C:\Autoexec.Bat") And 32 Then Print "此文件为保存属性"  
End Sub  
使用 SetAttr (设定文件的属性) 

Private Sub Command1_Click()  
SetAttr "C:\Autoexec.Bat", 1 + 2 + 32  
Print "C:\Autoexec.Bat 此文件被设定成 只读 & 隐藏 & 保存属性"  
End Sub

我不会编呵.我估计这个程序不是很复杂,才到这里求各位大侠牛刀小试一把,现在U盘的应用很普遍了,U盘不仅仅作为一个移动存储器使用,更多是还在作为一个保存资料的备份工具.我想这个程序出来后,应用会很广的.
有一个"企业文件同步备份系统"基本可以完成这点,但这个系统一个很关键的麻烦是必须事先设定任务,它并不适用我所说这种较长时间做一次资料整理的需求.

希望能有大侠帮助一下呵