Office中国论坛/Access中国论坛

标题: 【帮我看看】关于文件备份的问题？ [打印本页]

作者: wjsfeng 时间: 2009-4-5 11:44
标题: 【帮我看看】关于文件备份的问题？
【帮我看看】关于文件备份的问题？

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

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

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

作者: Henry D. Sy 时间: 2009-4-5 12:02
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 时间: 2009-4-5 12:14
如果源文件夹里不止一个文件
可以引用scripting runtime的copy方法来循环复制。

作者: wjsfeng 时间: 2009-4-5 12:50
我无意中找到了一段代码，比较简洁，大家看看
比如把C:\aa目录中所有文件复制到D:\aa中，只要一行代码

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

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

作者: Grant 时间: 2009-4-5 14:16
这个是dos命令用了批处理来执行

作者: chaojianan 时间: 2009-4-5 16:06
谢谢，2种方法都学习下。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)