VBScript

Compute CRC32 of a File

Calculates the CRC32 of a file's contents and returns the 32-bit CRC as a hex string. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

set zipCrc = CreateObject("Chilkat.ZipCrc")
' Use a relative for absolute path to the file..
crc = zipCrc.FileCrc("qa_data/hamlet.xml")
hexStr = zipCrc.ToHex(crc)
outFile.WriteLine(hexStr)

outFile.Close