ComboBox'a Dosya isimlerini alma

[alptun20]

Form üzerindeki ComboBox'a örneğin D sürücüsündeki Resimler klasöründe bulunan JPEG dosyalarının isimlerini almak mümkünmüdür.

 

[halit3]

Bunu denermisiniz.

Private Sub UserForm_Initialize()
Klasor = "D:\Resimler"
Dim Dosya As String
On Error Resume Next
ComboBox1.Clear
Dosya = Dir(Klasor & "\*.jpg")
Do While Dosya <> ""
ComboBox1.AddItem Dosya
Dosya = Dir
Loop
End Sub

 

[alptun20]

Halit Bey teşekkür ediyorum işlem tamamdır.

Saygılarımla..

 

[halit3]

Halit Bey teşekkür ediyorum işlem tamamdır.

Saygılarımla..

iyi çalışmalar