İ
İhsan Tank
Misafir
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.
gibi
bir kod buldum tüm herşeyi çıkartıyor ama buda işimi görmedi.
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
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.
Kod:
C:\Documents and Settings\xxxx\Desktop\xxxxx\001 - .mp3
bir kod buldum tüm herşeyi çıkartıyor ama buda işimi görmedi.
Kod:
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
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