• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Txt dosya satır sayısı

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

Kod:
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
 
asri

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