VB ファイルを読む

VB ファイルを読む

const IN_FILE_NAME as String="c:test.txt"
Dim fn As Integer
Dim line  As String
 
fn = FreeFile
 
Open IN_FILE_NAME For Input As #fn
 
Do While Not EOF(fn)
    Line Input #fn, line
    Debug.Print line
Loop
 
Close #fn