Klasördeki Dosyaları Comboboxta göstermek

[Fenomen]

iyi çalışmalar ben bir klasörün içindeki bütün dosyaları comboboxta göstermek istiyorum bunu şu kodla denedim

ComboBox1.AddItem Dir("c:\deneme\")

sadece alfabetik olarak ilk sıradaki dosyayı ekledi ve başka dosya eklemedi bunu nasıl ekleyebiliriz?

yardım ederseniz sevinirim.

[Haluk]

İstersen şöyle bir dene;

Private Sub UserForm_Initialize()
MyPath = "C:\Temp"
MyFile = Dir(MyPath & Application.PathSeparator & _
"*.xls", vbDirectory)
Do While MyFile <> ""
If MyFile = ThisWorkbook.Name Then GoTo ResumeLoop:
i = i + 1
ComboBox1.AddItem MyFile
MyFile = Dir
ResumeLoop:
Loop
End Sub

[Fenomen]

çok saol

[ALPEN]

alternatif olarak fso'lu bir çözüm. alt klasörleri de istenirse arayabiliyor.

[Fenomen]

peki bu klasörün içinde sadece klasörler olsa ve biz onları listelemek istesek nası yapabiliriz?

[Haluk]

Private Sub UserForm_Initialize()
MyPath = "C:\Temp"
MyFile = Dir(MyPath & Application.PathSeparator & _
"*.*", vbDirectory)
Do While MyFile <> ""
If MyFile = ThisWorkbook.Name Then GoTo ResumeLoop:
i = i + 1
If MyFile <> ".." And MyFile <> "." Then ComboBox1.AddItem MyFile
MyFile = Dir
ResumeLoop:
Loop
End Sub

[Haluk]

Ya da;

Private Sub UserForm_Initialize()
MyPath = "C:\Temp\"
MyObj = Dir(MyPath, vbDirectory)
Do While MyObj <> ""
i = i + 1
If (GetAttr(MyPath & MyObj) And vbDirectory) = vbDirectory Then
If MyObj <> ".." And MyObj <> "." Then
ComboBox1.AddItem MyObj
End If
End If
MyObj = Dir
Loop
End Sub

[Fenomen]

saol ellerine sağlık