I have a file containing approx 300 lines of text..
Each line has a CrLf at the end. The size of the file is about 8K.

I am reading strings into an array.
I need a simple method of creating a checksum for the file.

Can anyone suggest a fast and simple method.

Thanks

Charles W.

charles@home.com wrote:

'modCRC32.bas
Option Explicit

Private malTable(255) As Long

Public Sub Main()

Dim sFile As String

Jason

When I run this I dont get any result.

Can you help?

Thanks

Charles W

"Jason Keats" melbpcDeleteThis.org.au> wrote in message
news:g61scq$kn1$1@aioe.org...

On Mon, 21 Jul 2008 18:48:56 +0100, "charles@home.com"
home.com> wrote:

The module as it stands outputs the result to the immediate window which
will hide itself after running if you don't have it showing normally.

Either [View], the [Immediate Window], or change the line;

Debug.Print GetFileCRC(sFile)

...to...

MsgBox GetFileCRC(sFile)

Obviously you'll need to tailor usage and output to your own app.

HTH

Thanks. I did manage to get this to work.

Charles W.

"Alfie [UK]" wrote in message
news:mik9849il77n9bqluh55fgvb5q857q4o67@4ax.com...

charles@home.com wrote:

Good :-)