UC知道vb 文件的复制判断问题
来源：百度知道 编辑：UC知道 时间：2024/09/23 20:23:02
Private Sub Timer1_Timer()
要求是，复制一个A文件夹的文件到另一个B文件夹中，如果发现A和B中有相同的文件而且是完全相同（未被改动的）则跳过，其余则覆盖，如果发现A中有B中没有的文件则复制。
End Sub
三楼的大哥，我再问一个小问题，怎样使listbox控件中的内容总是指向最后面，而不是停留在第一面。就像迅雷的连接信息。
要求是，复制一个A文件夹的文件到另一个B文件夹中，如果发现A和B中有相同的文件而且是完全相同（未被改动的）则跳过，其余则覆盖，如果发现A中有B中没有的文件则复制。
End Sub
三楼的大哥，我再问一个小问题，怎样使listbox控件中的内容总是指向最后面，而不是停留在第一面。就像迅雷的连接信息。
Private Sub FileMon()
Dim aDir As String, bDir As String, fname() As String
Dim s1 As String, s2 As String
Dim n As Integer, i As Integer
aDir = "f:\a"
bDir = "f:\b"
Rem 检测文件夹是否存在，包括隐藏目录
If Dir(aDir, vbDirectory + vbHidden) = "" Then MsgBox aDir & "文件夹不存在！": Exit Sub
If Dir(bDir, vbDirectory + vbHidden) = "" Then MsgBox bDir & "文件夹不存在！": Exit Sub
Rem 遍历A文件夹所有文件，因Dir函数所限，此处无法直接比较A、B是否有相同文件
n = 0
ReDim fname(n) As String
fname(n) = Dir(aDir & "\*.*", vbNormal + vbHidden + vbReadOnly)
Do Until fname(n) = ""
n = n + 1
ReDim Preserve fname(n) As String
fname(n) = Dir()
Loop
For i = 0 To n - 1
Rem 检测B文件夹是否有相同的文件，如果有，则比较它们内容是否相同
If Dir(bDir & "\" & fname(i), vbNormal + vbHidden + vbReadOnly) <> "" Then
Open aDir & "\" & fname(i)