Note: The function, method, object, or property described in this topic is disabled if the Microsoft Jet Expression Service is running in sandbox mode, which prevents the evaluation of potentially unsafe expressions. For more information on sandbox mode, search for "sandbox mode" in Help.
Returns a Long representing the size, in bytes, of a file opened using the Open statement.
Syntax
LOF( filenumber )
The required filenumberargument is an Integer containing a valid file number.
Note: Use the FileLen function to obtain the length of a file that is not open.
Example
Note: Examples that follow demonstrate the use of this function in a Visual Basic for Applications (VBA) module. For more information about working with VBA, select Developer Reference in the drop-down list next to Search and enter one or more terms in the search box.
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.
No comments:
Post a Comment