klasörde bulunanların tüm adresini yazma

[İhsan Tank]

merhaba arkadaşlar
benim istediğim şu bir klasörde bulunan mp3 - mpeg vs. gibi dosyaların tüm adlarını excel sayfasına aktarmak istiyorum.
örneğin.

C:\Documents and Settings\xxxx\Desktop\xxxxx\001 - .mp3

gibi

bir kod buldum tüm herşeyi çıkartıyor ama buda işimi görmedi.

Sub dosyaozellikleri()
sat = 1
Cells.Hyperlinks.Delete
On Error Resume Next
Set Klasor = CreateObject("Shell.Application").BrowseForFolder( 0, "Lütfen bir klasör seçin !", &H100)
klasoryolu = Klasor.Items.Item.Path
If klasoryolu = "" Then Exit Sub
Cells(1, 1) = "Dosya adı"
For a = 1 To 48
Cells(1, a + 1) = CreateObject("Shell.Application").Namespace(Klasor ).GetDetailsOf("", a)
Next
sat = sat + 1
For Each dosyaadi In CreateObject("Scripting.FileSystemObject").GetFold er(klasoryolu).Files
c = c + 1
Set Dosya = CreateObject("Shell.Application").Namespace(Klasor ).ParseName(dosyaadi.Name)
Cells(sat, 1) = dosyaadi.Name
Cells(sat, 1).Hyperlinks.Add Anchor:=Cells(sat, 1), Address:=Klasor & "\" & dosyaadi.Name, TextToDisplay:=dosyaadi.Name
For a = 1 To 48
Cells(sat, a + 1) = CreateObject("Shell.Application").Namespace(Klasor ).GetDetailsOf(Dosya, a)
Next
sat = sat + 1
Next
MsgBox "işlem tamam"
End Sub

syn : Halit3 Uzman'a ait bir kod.

bunda istediğim İki farklı özellik var.
1. Klasörü Ben seçeyim.
2. excel dosyası'da klasörün içinde olacak şekilde olması.
tabi olursa.
yardımlarınız için şimdiden teşekkürler

 

[halit3]

Ekli dosyayı kontrol edermisiniz.?

 

[İhsan Tank]

Ekli dosyayı kontrol edermisiniz.?

hocam çok teşekkür ederim.
ufak bir iki değişiklik istesem hocam
1 - uzantı sormasa
2 - sadece A sütununa yazdığı bilgiler yetiyor bu şekilde yenileyebilir misiniz.
yoksa böyle daha mı kullanışlı olur hocam

 

[halit3]

Olmuştur herhalde;

 

[İhsan Tank]

Olmuştur herhalde;

çok teşekkür ederim
ellerinize sağlık

 

[halit3]

çok teşekkür ederim
ellerinize sağlık

iyi çalışmalar

 

[Gorarr]

Halit hocam çok teşkkürler.Çok işime yaradı. Ek olarak bir şey sorucam. uzantı girilerek arama yapan ilk dosyada excele döküm yaparken sadece dosya isimleri ile sıralama yapmasını nasıl sağlayabiliriz...

 

[halit3]

Halit hocam çok teşkkürler.Çok işime yaradı. Ek olarak bir şey sorucam. uzantı girilerek arama yapan ilk dosyada excele döküm yaparken sadece dosya isimleri ile sıralama yapmasını nasıl sağlayabiliriz...

ekli dosyaya bir bakarmısınız.