【帮我看看】关于文件备份的问题？

wjsfeng

【帮我看看】关于文件备份的问题？

下面是这段代码，不知怎么修改！

Private Sub Command0_Click()
Dim SourceFile, DestinationFile As String
SourceFile = "D:\学生管理系统"   我在d盘里建立了一个学生系统的文件夹
DestinationFile = "E:\"         我希望能将D:\学生管理系统里的所有文件复制到e盘。
FileCopy SourceFile, DestinationFile
End Sub

请高手援助！！！！！！！

Henry D. Sy

Private Sub Command0_Click()
Dim SourceFile, DestinationFile As String
SourceFile = "D:\学生管理系统\FileName.mdb"   
DestinationFile = "E:\BackFileName.mdb"         
FileCopy SourceFile, DestinationFile
End Sub

Henry D. Sy

如果源文件夹里不止一个文件
可以引用scripting runtime的copy方法来循环复制。

wjsfeng

我无意中找到了一段代码，比较简洁，大家看看
比如把C:\aa目录中所有文件复制到D:\aa中，只要一行代码

Shell "xcopy C:\aa D:\aa\ /e /c /y", 0
/E 复制目录和子目录，包括空的
/C 即使有错误，也继续复制
/Y 禁止提示以确认改写文件
后面加0表示以隐藏方式运行

加的这些参数都是为了隐蔽性和自动性加的
目标文件夹可以不用先创建，它会自动创建
要记得目标文件夹后面要加\，请参照上面的代码

Grant

这个是dos命令用了批处理来执行

chaojianan

谢谢，2种方法都学习下。