(15/08/2009, 13:20)ancyra yazdı: If tbxgoryolu.Text = Image Then
Sizin projenizi görmediğimiz için tbxgoryolu içeriğini bilemiyoruz, ama eğer bu ilgili dosyanın tam adını veriyorsa aklıma ilk gelen alttak, gibi bir çözüm:
Kod:
Dim ResimUzanti() As Variant
ResimUzanti = Array("bmp", "jpg", "gif")
If Not IsError(Application.Match(tbxgoryolu.Text, ResimUzanti, 0)) Then
MsgBox "Bu bir resim dosyasıdır"
'**************************
End If