Detecting Empty Files

[MechEngCoder]

Hi,

I am having trouble detecting an empty file opened in Binary mode. I have tried the following function and it always returns false.

Public Function fnEmptyFile (ByVal strPath as String)
     Dim FileHandle%

     FileHandle% = FreeFile
     Open strPath For Binary Access Read Write As #FileHandle%

     If (EOF(FileHandle%) = True) then
          fnEmptyFile = True
     else
          fnEmptyFile = False
     End If

     Close #FileHandle%

End Function

Does anyone have any suggestions as to how to detect an empty file?

Thanks

MechEngCoder

[MechEngCoder]

Sorry forgot the As Boolean in the function header, typo

[phinds]

there's got to be a method somewhere (FSO, maybe?) that gives you the file size, so you could just look for size=0

[MechEngCoder]

Thanks, does anyone know the method could not see under FSO?

[phinds]

in the same scripting library that contains the FSO there is a "file" object that has a "size" property

[Blobby]

You can just use the Filelen function.

if Filelen(Filepathandname) = 0 then
 'file is empty
endif

[CVMichael]

After you open the file, you can use "LOF(#FileHandle%)"

[MechEngCoder]

Thanks works a Treat