Txt dosya satır sayısı

[k0081]

Merhaba arkadaşlar;

http://s3.dosya.tc/server12/24nmx2/ornek.rar.html

linkte verdiğim dosyanın satır sayısını msgbox ile ekrana nasıl alabilirim?

yardımcı arkadaşa şimdiden teşekkürler.

 

[Asri]

Dosya yolunu sizin dosyanın konumuna göre değiştiriniz.

Sub satirsayisi()
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set theFile = fso.OpenTextFile("D:\ornek.txt", 8, True)
    
    MsgBox ("Satır sayısı : " & theFile.Line)

    Set oFso = Nothing
End Sub

 

[k0081]

asri

Hocam çok Teşekkür ediyorum, Tamamdır..