Alt klasör içerisindeki dosyaları listelemek

[tamer42]

Merhaba;

Bir klasör altındaki dosyaları listemek isterken,

bu klasördeki; alt klasörlerin içerisinde bulunan dosyalarında listelenmesini sağlayabilirmiyiz.

Sub DosyalariListele()
Dim dosya
Dim i As Integer
ChDir ("C:\proje")
dosya = Dir("*.DOC")
i = 1
While dosya <> ""
Cells(i, 6) = dosya
dosya = Dir
i = i + 1
Wend
End Sub

İyi Çalışmalar...

 

[Haluk]

Merhaba;

Ekteki örneği inceleyin ...

 

[Haluk]

Bir de aşağıdaki linke bakın ...

http://www.excel.web.tr/viewtopic.php?p=35030#35030

 

[tamer42]

Merhabalar;

Sn Raider verdiğiniz dosyadaki kodları çalıştırmak istediğimde aşağıdaki hatayı veriyor.

Hata Oluştu !

Hata No: 1004
Unable to set the NumberFormat property of the Range class

Sanırım hata, koddaki bu satırlardan olabilir.

..
...
....
Case Else
MsgBox "Hata oluştu !" & vbCrLf & vbCrLf & "Hata No: " & Err.Number & vbCrLf & Err.Description, vbOKOnly, "HATA !"
End Select
Err.Clear
Range("A1:E1").Clear
End Sub

İyi Çalışmalar dilerim.

 

[tamer42]

Tekrar Merhabalar;

Range("B:B").NumberFormat = "0.00 Kb"

satırını silince sorun çözüldü.

Yalnız bir şey öğrenmek istiyorum:

Set objFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasor seçin !", 0)

satırında; klasör adını sabit olarak yazmak istersek, buraya nasıl uyarlayabilirim. ("C:\proje\2005") gibi,

İyi Çalışmalar, Kolay gelsin.

 

[Haluk]

[vb:1:ac97f22d12]Set objFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasor seçin !", &H100, "C:\proje\2005")
[/vb:1:ac97f22d12]

 

[tamer42]

Merhabalar,

Dosya isimlerini listelerken;

Const MyExt As String = "*.xls"
Const IncludeSubFolder As Boolean = True
Dim MyPath As String
Dim FileSize, Folder, LastModified, LastAccessed

Buradaki Dosya türlerini (excel, word, resim) aşağıdaki browse penceresinde belirlenecek şekilde bir uyarlama yapılabilir mi?
Bir Combobox, Textbox veya başka bir yöntemle....

Set objFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasor seçin !", &H100, "C:\proje\2005")

İlginize şimdiden teşekkür ederim, İyi Çalışmalar...

 

[tamer42]

Tüm arkadaşlara merhabalar,

Const MyExt As String = "*.xls"
Const IncludeSubFolder As Boolean = True

Her seferinde farklı türdeki dosyaların listesini almam gerektiğinden; Buradaki Dosya uzantısını belirlemek için Combobox içeren bir userform hazırladım, Bu nedenle Kodu çalıştırıken iki ayrı form( Userform ve Browse Form) açmak zorunda kalıyorum.

Set objFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasor seçin !", &H100, "C:\proje\2005")

Eğer mümkün olursa; Bu işlemi tek bir form üzerinde birleştirmek ( Browse Form' da) istiyorum.

Yardımlarınız için içten teşekkürler...