Compute File CRC

Calculate the CRC for a file in the filesystem.

Download Chilkat Zip ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set zipCrc = CreateObject("Chilkat.ZipCrc")

crc = zipCrc.FileCrc("someFile.dat")

hexStr = zipCrc.ToHex(crc)
outFile.WriteLine(hexStr)
outFile.Close