Computes the CRC-32 checksum of a file.
VB6/VBA
Debug.Print "Testing CRC_File ..."
Dim nCRC As Long
nCRC = CRC_File("hello.txt", 0)
Debug.Print "CRC32('hello.txt')=" & Hex(nCRC)
Output
Testing CRC_File ...
CRC32('hello.txt')=38E6C41A
VB.NET
Console.WriteLine("Testing CRC_File ...")
Dim nCRC As Integer
nCRC = Crc.File("hello.txt")
Console.WriteLine("CRC32('hello.txt')=" & Hex(nCRC))
[Contents]