파일입출력(Line Input)를 이용해서 몇줄인지 확인 방법

교교 2014.06.08 08:48:46 *: 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 & "줄입니다"

http://www.devpia.com/