Combobox'a klasör gösterme hatası.

[vardar07]

Arkadaşlar Fuat Şirin arkadaşın bir çalışmasında Kırmızılı yeri kendimize göre uyarlamak istedim. Comboboxta resimler listelenmiyor.Ne gibi yol izlemek lazım.

Private Sub ComboBox1_Change()
Dim kls As String
kls = "[COLOR=red]C:\ff\[/COLOR]"
With Application.FileSearch
    .NewSearch
    .LookIn = kls
    .Filename = ComboBox1 & ".jpg"
    .SearchSubFolders = True
    .Execute
    If .FoundFiles.Count > 0 Then
        Image1.Picture = LoadPicture(.FoundFiles(1))
    End If
End With
End Sub

Kod orjinal sayfası
http://www.excel.web.tr/f48/userforma-resim-caoyrma-t67487/post367294.html

 

[ExcelF1]

2003 versiyonunda problem yok. 2007 versiyonunda "Application.FileSearch" komutunun karşılığını bulmanız lazım.