Simple File Compare

[unixb0y]

What's the best way of r doing this:

If file1 is note the same size than file2 then
do something.

Thanks
Karl

 

[Zathras]

I don't know about "best" but this is probably the simplest:

Option Explicit

Sub test()
  If Not SameSizeFiles("c:\file1.txt", "c:\file2.txt") Then
    MsgBox "Lengths are different"
  End If
End Sub

Function SameSizeFiles(File1 As String, File2 As String) As Boolean
  SameSizeFiles = (FileLen(File1) = FileLen(File2))
End Function