[VB] 파일 읽기

코드

Dim path as String
Dim szBuf as String

path= App.path + "\Scales.dat"
Open ScaleDataFilePath For Input As #1
Do Until EOF(1)
        Line Input #1, szBuf
Loop
Close #1