Klasördeki pdf isimlerini exele aktarma

[Tornael]

Merhaba arkadaşlar,

Öncelikle pdf, excel, text, iso, rar vs. belirtilen klasördeki herhangi bir dosyanın uzantısını nasıl öğrenebilirim. Mesela klasördeki 3. dosyanın uzantısını öğrenmek istiyorum.

Bir klasördeki tüm pdf lerin isimlerini excele nasıl aktarabilirim?

 

[askm]

Sub ASKM_Listele()
Dim dosya As Object
Set dosya = CreateObject("scripting.filesystemobject")
Set klasor = dosya.getfolder(ThisWorkbook.Path) 'EXCEL BELGESİ İLE AYNI DOSYA OLURSA BU ŞEKİLDE
'Set klasor = dosya.getfolder("C:\Documents and Settings\Administrator\Desktop\Örnek") 'DOSYA ADRESİ GİRİLEREK YAPMAK İÇİN EN BAŞTAKİ TEK TIRNAĞI SİLİN.Range("a1:a65000").ClearContents
a = 2
For Each dosyalar In klasor.Files
If VBA.Right(dosyalar.Name, 3) = "pdf" Then
Cells(a, 1) = Replace(dosyalar.Name, ".pdf", "")
a = a + 1
End If
Next
MsgBox "İŞLEM TAMAM...", vbInformation, "ASKM"
End Sub

 

[askm]

Sub ASKM_Listele()
Dim dosya As Object
Set dosya = CreateObject("scripting.filesystemobject")
Set klasor = dosya.getfolder(ThisWorkbook.Path) 'EXCEL BELGESİ İLE AYNI DOSYA OLURSA BU ŞEKİLDE
'Set klasor = dosya.getfolder("C:\Documents and Settings\Administrator\Desktop\Örnek") 'DOSYA ADRESİ GİRİLEREK YAPMAK İÇİN EN BAŞTAKİ TEK TIRNAĞI SİLİN.
Range("a1:a65000").ClearContents
a = 2
For Each dosyalar In klasor.Files
If VBA.Right(dosyalar.Name, 3) = "pdf" Then
Cells(a, 1) = Replace(dosyalar.Name, ".pdf", "")
a = a + 1
End If
Next
MsgBox "İŞLEM TAMAM...", vbInformation, "ASKM"
End Sub

 

[Tornael]

Teşekkürler askm,

Yalnız, klasördeki klasör isimlerini alamıyorum. Onun haricinde paylaştığınız kod tüm sorunlarımı çözüyor.

Mesela, A firmalı klasörde çalışan işçilerin her birine ait klasör bulunuyor.
Bu işçilerin klasör isimlerini excele aktarmak istiyorum.