Txt dosyalarının satır sayılarını almak

[k0081]

Merhaba arkadaşlar;
Bir klasör içinde bulunan Txt dosya(lar)ın satır sayılarını command buton kullanarak Msgbox ile nasıl alabilirim ?


örnek:
001(2.50x2.50)_A1 ANOSU = 13
001(2.50x2.50)_A2 ANOSU = 28
...
...

gibi..

Not: Klasördeki txt dosya adedine bağlı olarak Msgbox ta hepsinin yada birinin ileti şeklinde vermesini istiyorum.

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

http://www.dosyayukleyin.com/do.php?id=4804]Txtdosyaları.rar

 

[NBATMAN]

Merhaba,

Ekteki exeyi deneyiniz.

 

[k0081]

Merhaba,

Ekteki exeyi deneyiniz.

Hocam paylaşım sitelerinden birine yükleyebilirmisiniz ?

 

[Tevfik_Kursun]

Sayın NBATMAN,
Çalışmanız güzel olmuş, elinize sağlık. Ara sıra lazım oluyor.
Keşke .xlsm dosyalarını da tanıtmış olsaydınız.
Teşekkür ederim.
İyi çalışmalar

 

[NBATMAN]

Sayın NBATMAN,
Çalışmanız güzel olmuş, elinize sağlık. Ara sıra lazım oluyor.
Keşke .xlsm dosyalarını da tanıtmış olsaydınız.
Teşekkür ederim.
İyi çalışmalar

Merhaba,

Dosya uzantısı seçtiğiniz comboboxa herhangi bir şey seçmeden direkt xlsm yazıp listele yaparsanız çalışır...

Ben tebriğiniz için teşekkür ediyorum...İşinize yarayabilecek olması ayrıca sevindirici...

 

[NBATMAN]

Hocam paylaşım sitelerinden birine yükleyebilirmisiniz ?

Merhaba,

http://s4.dosya.tc/server2/5apxqy/Klasordeki_Dosyalari_Listeleme.rar.html

 

[halit3]

Merhaba arkadaşlar;
Bir klasör içinde bulunan Txt dosya(lar)ın satır sayılarını command buton kullanarak Msgbox ile nasıl alabilirim ?


örnek:
001(2.50x2.50)_A1 ANOSU = 13
001(2.50x2.50)_A2 ANOSU = 28
...
...

gibi..

Not: Klasördeki txt dosya adedine bağlı olarak Msgbox ta hepsinin yada birinin ileti şeklinde vermesini istiyorum.

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

http://www.dosyayukleyin.com/do.php?id=4804]Txtdosyaları.rar

Bu eklediğiniz dosya txt dosyası değil
Verilen cevaplarda farklı gibi geldi bana yada ben soruyu anlayamadım.

Bu kod txt uzantılı dosyanın içindeki son satır değerine ait indis yani son satır numarasını vermektedir.

kod:

Sub text_son_satir_no_bul()

Dim fs, t, son_satir, File1
File1 = ThisWorkbook.Path & "\test.txt" 'veri dosyası
Set fs = CreateObject("Scripting.FileSystemObject")
Set t = fs.OpenTextFile(File1, 1, True)

t.ReadAll
son_satir = t.line
t.Close
MsgBox son_satir

End Sub

 

[k0081]

NBATMAN;
Hocam Exe dosya için Teşekkür ederim. Ama Bu Formatta değil benim istediğim.
-------------------------------------------
Halit3;

Hocam; rarlı dosya sadece temsili bir anlatımdı..

Göndermiş olduğunuz bu kod istediğim gibi.. Tek dosya üzerinden işlem yapıyor.. sorun değil.. diğer dosyaların isimlerini yazarak ( inputbox) ile buradan satır sayılarını okutabilirim. Çok Teşekkür ediyorum elinize sağlık hocam..

 

[bybyby]

Dosyayı bir paylaşım sitesine yükleyebilir misiniz?

 

[k0081]

Dosyayı bir paylaşım sitesine yükleyebilir misiniz?

Hangi dosyayı hocam?

 

[bybyby]

http://www.excel.web.tr/attachment.php?attachmentid=174280&d=1428002416

Bu dosya hocam. NBATMAN hocamın eklediği dosya.

 

[k0081]

http://www.excel.web.tr/attachment.php?attachmentid=174280&d=1428002416

Bu dosya hocam. NBATMAN hocamın eklediği dosya.

O dosya bende mevcut değil. NBATMAN özelden yazıp isteyebilirsin. Konuyu hatırlatarak..

 

[bybyby]

Teşekkürler.