formda resim temizleme sorunu hk

[chakistes]

merhaba arkadaşlar textbox kutusunda numaraya göre resim geliyor resim olmadığında resimyok dosyasını çalıştırıyor fakat benim istediğim klasörde resim yoksa boş resim ekranı gelsin

On Error GoTo hand
Image2.Picture = LoadPicture("c:\okul\" & TextBox4.Text & ".jpg")
Exit Sub
hand: Image2.Picture = LoadPicture("c:\okul\" & "resimyok.jpg") bu kodla resimyok.jpg kullanmak yerine boş gelsin.

 

[halit3]

Böyle birşey olması lazım

dosya = "c:\okul\" & TextBox4.Text & ".jpg"
If CreateObject("Scripting.FileSystemObject").FileExists(dosya) = True Then
Image2.Picture = LoadPicture(dosya)
Else
Image2.Picture = LoadPicture(None)
End If

 

[chakistes]

teşekkür ederim