例: LOF function

Dim izFile As Integer
Dim fileName As String, fileContents as String
izFile% = FreeFile()
fileName$ = "c:¥autoexec.bat"
Open fileName$ For Input As izFile%
' Use LOF to find the file length, and Input$ to read
' the entire file into the string veriable izFile.
fileContents$ = Input$(LOF(izFile%), izFile%)
Print fileContents$        ' Display the file contents.