<-- Previous || Up || Next -->

CRC32 File Sample Sub
File Operations Class

Private Sub CRC32FileSample()
    ' Sample of the CRC32File Function.

    Dim avarFiles() As Variant
    DirToVariantVector avarFiles, CombinePathAndFile(GetWindowsDirectory, "*.*"), Null, False, True, True, True

    Dim lngCurFIle As Long
    For lngCurFIle = 1 To UBound(avarFiles)
        Debug.Print Now & " " & avarFiles(lngCurFIle) & " ";

        Dim varCRC As Variant
        varCRC = CRC32File(avarFiles(lngCurFIle))

        Debug.Print IllustrateValue(varCRC)
    Next lngCurFIle
End Sub

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.