How to test if a textfile is empty ?

[eurob]

I'd like to know if it possible to test a text file for empty. I use this:

set I'd like to know if it possible to test a text file for empty. I use this:

set textcontent = fsoObject.OpenTextFile(textfile , 1)
strBuffer = textcontent.ReadAll

which works fine if the textfile contains characters, but when the file is empty I get
Microsoft VBScript
runtime (0x800A003E)
Input past end of file, because the file is empty.

Appreciate your help,

Robert

 

[eurob]

i found it,

if not textcontent.atendofstream then
strBuffer.readall
end if

 

[bboffin]

Or more generically you could use:

if fsoObject.FileExists(textfile) then
if fsoObject.GetFile(textfile).size <> 0 then
' open the file and process it
end if
end if