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