How to test for empty import file?

[Ersh]

Our mainframe guys send me 11 .txt files. I import them and format into a nice Excel report. My code checks to make sure all 11 files are there, but I need to test to see if the .txt file is empty.

I know how to check for a missing input file...
InputLoc = "\\mmsfile2\dshared.grp\pricewaterhousecoopers\monthlyreports\Input Files\Lump Sum Contributions.txt"
MyFile = Dir(InputLoc)
If (MyFile = "") Then

How do I check for an empty input file?

Thanks, Paul.

 

[John_w]

Use the FileLen function.