2003-2007 resim alma kod uyumsuzluğu

[anita]

Dim kls As String
kls = "C:\Users\muratt\Desktop\teklif\teklifresim"
With Application.FileSearch
.NewSearch
.LookIn = kls
.Filename = ComboBox2 & ".jpg"
.SearchSubFolders = True
.Execute
If .FoundFiles.Count > 0 Then
Image1.Picture = LoadPicture(.FoundFiles(1))
Else: Image1.Picture = LoadPicture("C:\Users\muratt\Desktop\teklif\teklifresim\yok.jpg ")
End If
End With

2007'e nasıl çevirebilirim konulara baktım ama kod uygulamasını anlayamadım .
teşekkürler.

 

[hamitcan]

"Application.FileSearch" fonksiyonu 2007 kütüphanesinde mevcut değil. Forumda bu şekilde arama yaparsanız, farklı çözümlere ulaşabilirsiniz.