vb中判断文件是否被修改

发布网友发布时间：2023-07-14 19:33

共3个回答

热心网友时间：2024-01-24 23:12

'判断两个文件是否相同的函数,传入两个文件路径,相同返回True,不同返回False
Private Function isTheSameFile(ByVal strFilePath1 As String, ByVal strFilePath2 As String) As Boolean
    '思路是..把文件1和文件2读如数组,然后用StrConv转换成字符串,最后用StrComp来比较讲个字符串,由于用的都是vb的内部函数,所以效率非常高
    Dim strFile1 As String
    Dim strFile2 As String
    Dim arrFile1() As Byte
    Dim arrfile2() As Byte

    '读取文件1数据
    Open strFilePath1 For Binary As #1
    If LOF(1) > 0 Then
        ReDim arrFile1(LOF(1) - 1)
    Else
        ReDim arrFile1(0)
    End If
    strFile1 = StrConv(arrFile1, vbUnicode)
    Close #1

    '读取文件2数据
    Open strFilePath2 For Binary As #1
    If LOF(1) > 0 Then
        ReDim arrfile2(LOF(1) - 1)
    Else
        ReDim arrfile2(0)
    End If
    strFile2 = StrConv(arrfile2, vbUnicode)
    Close #1

    '比较两个文件
    '如果你需要忽略大小写,就把下面的vbBinaryCompare改成vbTextCompare
    If StrComp(strFile1, strFile2, vbBinaryCompare) = 0 Then
        isTheSameFile = True
    Else
        isTheSameFile = False
    End If

End Function

热心网友时间：2024-01-24 23:13

可以用MD5 CRC 都可以

你去网上找到MD5 或者 CRC 的模块

热心网友时间：2024-01-24 23:13

根据文件的修改日期???