这是一个文件夹备份的程序,请大家帮我再添上filelistbox 的代码以实现文件的备份,并帮我解释一下这段代码谢谢.
Dim fs As New FileSystemObject
Set fs = CreateObject("scripting.filesystemobject")
Dim origin_file As File, target_file As File, origin_fd As Folder, target_fd As Folder
Dim subfd As Folder, f As File, target_fileName As String
Set origin_fd = fs.GetFolder(origin_dir)
If Len(target_dir) = 3 Then
target_dir = Mid(target_dir, 1, 2)
End If
target_dir = target_dir & Mid(origin_dir, InStrRev(origin_dir, "\"))
If Not fs.FolderExists(target_dir) Then
fs.CreateFolder (target_dir)
End If
Set target_fd = fs.GetFolder(target_dir)
For Each origin_file In origin_fd.Files
target_fileName = target_dir & "\" & origin_file.Name
If Not fs.FileExists(target_fileName) Then
fs.CopyFile origin_file.Path, target_fileName
End If
Set target_file = fs.GetFile(target_fileName)
If target_file.DateLastModified <> origin_file.DateLastModified Then
fs.CopyFile origin_file.Path, target_fileName
End If
Next
For Each subfd In origin_fd.SubFolders
origin_dir = subfd.Path
Call overfolder(origin_dir, target_dir) '调用递归过程
Next: End Sub
Dim fs As New FileSystemObject
Set fs = CreateObject("scripting.filesystemobject")
Dim origin_file As File, target_file As File, origin_fd As Folder, target_fd As Folder
Dim subfd As Folder, f As File, target_fileName As String
Set origin_fd = fs.GetFolder(origin_dir)
If Len(target_dir) = 3 Then
target_dir = Mid(target_dir, 1, 2)
End If
target_dir = target_dir & Mid(origin_dir, InStrRev(origin_dir, "\"))
If Not fs.FolderExists(target_dir) Then
fs.CreateFolder (target_dir)
End If
Set target_fd = fs.GetFolder(target_dir)
For Each origin_file In origin_fd.Files
target_fileName = target_dir & "\" & origin_file.Name
If Not fs.FileExists(target_fileName) Then
fs.CopyFile origin_file.Path, target_fileName
End If
Set target_file = fs.GetFile(target_fileName)
If target_file.DateLastModified <> origin_file.DateLastModified Then
fs.CopyFile origin_file.Path, target_fileName
End If
Next
For Each subfd In origin_fd.SubFolders
origin_dir = subfd.Path
Call overfolder(origin_dir, target_dir) '调用递归过程
Next: End Sub
解决方案 »
- vb webbrowser 打新窗口session没保留
- 请问:用什么函数判断一个变量是否为浮点数?
- SStab控件问题!!如何添加背景色
- 怎样判断用户输入的东西是什么数据类型啊?
- 寻求表格控件
- mcisendstring 不支持长路径名, 可以用API装成8.3格式就好了
- 如何知道一个进程打开的端口?????
- 我的程序用的是ACCESS2000的数据库,1.用什么办法可以判断密码是否正确.2.怎么样可以判断数据库中的某一个表及某一个表中的某一个字段是否存在???
- 又是关于如何打开带密码的ACCESS2000数据库的方法~~
- 急!望各位大虾火速解决
- sql语句,想用模糊查询,但子查询的结果有多个,请问如何写?
- ASP导出表格无边框问题
Private Sub Command1_Click()
Call Shell("cmd /c xcopy " & "c:\dll\*.*/s " & "c:\dllbackup\")
MsgBox "备份完成!"
End Sub
'********************************* 第二种写法
Private Sub Command1_Click()
Call BackUpFolder("c:\dll", "c:\dllbackup")
End SubPublic Sub BackUpFolder(origin_fd$, target_fd$)
Call Shell("cmd /c xcopy " & origin_fd & "\*.*/s " & target_fd & "\")
MsgBox "备份完成!"
End Sub
Private Sub Command1_Click()
Call Shell("cmd /c xcopy " & "c:\dll\*.*/s/h/y " & "c:\dllbackup\", vbHide)
MsgBox "备份完成!"
End Sub
'********************************* 第二种写法
Private Sub Command1_Click()
Call BackUpFolder("c:\dll", "c:\dllbackup")
End SubPublic Sub BackUpFolder(origin_fd$, target_fd$)
Call Shell("cmd /c xcopy " & origin_fd & "\*.*/s/h/y " & target_fd & "\", vbHide)
MsgBox "备份完成!"
End Sub