Detecting Empty Files

Hi,

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

Code:

---


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

Sorry forgot the As Boolean in the function header, typo

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

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

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

You can just use the Filelen function.

VB Code:

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

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

Thanks works a Treat :)