Klasördeki metin dosyalarını listeleyip satır sayısını yaz

[bybyby]

Merhaba arkadaşlar,

Belirlediğimiz bir klasördeki metin dosyalarının isimlerini bir sütuna, satır sayılarını yanındaki sütuna yazdırmak istiyorum.

Yardımcı olabilir misiniz?

Teşekkürler.

 

[PLİNT]

Merhaba
Sayfada oluşturacağınız butona aşağıdaki kodları ekleyip deneyiniz.

[SIZE="2"]Private Sub CommandButton1_Click()
Set klasorsec = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçin !", &H100)
yol = klasorsec.Items.Item.Path
Set nesne = CreateObject("Scripting.FileSystemObject")
Set klasor = nesne.GetFolder(yol)
Set dosyalar = klasor.Files
For Each dosya In dosyalar
If nesne.GetExtensionName(dosya.Name) = "txt" Then
Open dosya For Input As 1
n = 0
Do While Not EOF(1)
  Line Input #1, s
  n = n + 1
  Loop
c = c + 1
Cells(c, "a") = dosya.Name
Cells(c, "b") = n
Close #1
End If
Next
End Sub[/SIZE]

 

[bybyby]

Yardımınız için teşekkür ederim hocam. Sorunsuz çalışıyor.