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&#58;
        i = i + 1
        If MyFile <> ".." And MyFile <> "." Then ComboBox1.AddItem MyFile
        MyFile = Dir
ResumeLoop&#58;
        Loop
End Sub

 

[Haluk]

Ya da;

Private Sub UserForm_Initialize()
    MyPath = "C:\Temp\"
    MyObj = Dir(MyPath, vbDirectory)
        Do While MyObj <> ""
        i = i + 1
        If &#40;GetAttr&#40;MyPath & MyObj&#41; And vbDirectory&#41; = 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