파일입출력(Line Input)를 이용해서 몇줄인지 확인 방법
*
Dim tmp As String
Dim iLoop As Integer
Dim sFN As String
sFN = "C:\Test.txt"
Open sFN For Input As #1
Do While Not EOF(1)
Line Input #1, tmp
iLoop = iLoop + 1
Loop
Close #1
Msgbox sFN & "파일은 " & iLoop & "줄입니다"
Dim iLoop As Integer
Dim sFN As String
sFN = "C:\Test.txt"
Open sFN For Input As #1
Do While Not EOF(1)
Line Input #1, tmp
iLoop = iLoop + 1
Loop
Close #1
Msgbox sFN & "파일은 " & iLoop & "줄입니다"
http://www.devpia.com/
이 게시물을
번호
제목
136
135
132
131
130
128
127
126
125
123
122
121
120
119