Klasör içindeki klasör isimlerinin A sütununa listelenmesi

[keremurat]

dosyaların diğer özellikleri

aşağıdaki kodda, klasördeki dosyaların yalnız file özellikleri alınabiliyor. ekli resimde de görüleceği gibi content, description vs. gibi özellik başlıkları var. bunlar için nasıl bir kod gerekir. saygılar.

Alternatif kod birazcık kısaltılmış hali

Public sat As Long
Sub dosyaListele()
Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.SELF.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo Atla
Cells.ClearContents
Range("A1") = "Dosya Yolu"
Range("B1") = "Dosya Adı"
Range("C1") = "Dosya Tipi"
Range("D1") = "Dosya Boyutu"
Range("E1") = "Oluşturulma Tarihi"
Range("F1") = "Son Erişim Tarihi"
Range("G1") = "Son Düzenleme Tarihi"
Range("H1") = "Son Düzenleme Zamanı"
AltListe (Kaynak)
MsgBox "işlem tamam !", vbInformation, "DİKKAT"
Else
Atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If
Set Obj = Nothing
Set Klasor = Nothing
Exit Sub
Hata: MsgBox Err.Description, vbExclamation, "Error #" & Err.Number
End Sub
Private Sub AltListe(yol As String)
Dim klsrAra, klsrLst As Object, Dosya
Set klsrLst = CreateObject("Scripting.FileSystemObject").GetFolder(yol).SubFolders
Dosya = Dir(yol & "\*.*")
While Dosya <> ""
DoEvents
sat = [a65000].End(3).Row + 1
Cells(sat, 1) = yol
Cells(sat, 2) = Dosya
On Error Resume Next
With CreateObject("Scripting.FileSystemObject").GetFile(yol & "\" & Dosya)
ActiveSheet.Hyperlinks.Add Anchor:=Range("B" & sat), Address:=yol & "\" & Dosya
Range("C" & sat) = .Type
Range("D" & sat) = Format(.Size / 1024, "#,##0.0000") & " Kb"
Range("E" & sat) = Format(.DateCreated, "dd.mm.yyyy")
Range("F" & sat) = Format(.DateLastAccessed, "dd.mm.yyyy")
Range("G" & sat) = Format(.DateLastModified, "dd.mm.yyyy")
Range("H" & sat) = Format(.DateLastModified, "hh:mm:ss")
End With
Dosya = Dir
Wend
On Error GoTo sonraki
For Each klsrAra In klsrLst
Call AltListe(klsrAra.Path)
sonraki:
Next
End Sub

 

[halit3]

aşağıdaki kodda, klasördeki dosyaların yalnız file özellikleri alınabiliyor. ekli resimde de görüleceği gibi content, description vs. gibi özellik başlıkları var. bunlar için nasıl bir kod gerekir. saygılar.

üsteki mesajlarda bu istediğiniz mevcut.

 

[keremurat]

Halit hocam ilgilinize çok teşekküre ederim ancak benim istediğim dosyaların temel özelliklerinin yanında bazı özel özellikleri. yani, herhangibir dosyada sağ tıklayıp properties seçerseniz ve oradan details tabına gelirseniz orada şu alt başlıklar mevcut: "Description", "Origin", "Content", "Attributes" ve "File"

sizin hazırldaığınız kod "File" alt başlığındaki özellikleri aktarıyor. acaba diğer alt başlıklarındaki bilgilerin aktarılması mümkün mü?

saygılar.

üsteki mesajlarda bu istediğiniz mevcut.

 

[halit3]

Halit hocam ilgilinize çok teşekküre ederim ancak benim istediğim dosyaların temel özelliklerinin yanında bazı özel özellikleri. yani, herhangibir dosyada sağ tıklayıp properties seçerseniz ve oradan details tabına gelirseniz orada şu alt başlıklar mevcut: "Description", "Origin", "Content", "Attributes" ve "File"

sizin hazırldaığınız kod "File" alt başlığındaki özellikleri aktarıyor. acaba diğer alt başlıklarındaki bilgilerin aktarılması mümkün mü?

saygılar.

Aşağıdaki linke bir bakın

http://www.excel.web.tr/f48/dosya-ozellikleri-listeleme-t89414.html

 

[keremurat]

büyüksün aga, teşekkürler.

Aşağıdaki linke bir bakın

http://www.excel.web.tr/f48/dosya-ozellikleri-listeleme-t89414.html

 

[sosyogog0401]

ben sizin yazdığınız kodu e-kitap arşivim için kullandım. Klasör isimlerini listeledi; ancak klasörlerin içindeki pdf, word, vb. dosyaların isimlerini almadı. Bunun için ne yapmam lazım.

 

[cenk e.]

Merhaba, sn. sosyogog0401 şu linki inceleyebilirsiniz:
http://www.excel.web.tr/f142/alt-klasorleri-ve-alt-klasorlerdeki-tum-dosyalary-listeleme-t101323.html

 

[camelmoonbull]

Sayın hsayar, ellerinize sağlık kod çok iyi çalışıyor. Emeği geçen herkese teşekkürler.