Note Use the FileLen function to obtain the length of a file that is not open.
This example uses the LOF function to determine the size of an open file. This example assumes that
TESTFILE is a text file containing sample data.
Dim FileLength Open "TESTFILE" For Input As #1 ' Open file. FileLength = LOF(1) ' Get length of file. Close #1 ' Close file.