کمک در مورد لود یک عکس

[navid_gh]

سلام به همگی
من یه مشکل در مورد برنامه نویسی دارم که یه شرط می خوام بزارم که اگه آدرس رو درست نداد بهش پیغام بده
این کد منه
Private Sub Command1_Click()
Dim folder As String, pic As String
folder = Text1.Text: pic = Text2.Text
If folder = "" Or pic = "" Then
m = MsgBox("Enter a name", vbOKOnly, "Error")
Else
Image1.Picture = LoadPicture("F:\picture\" + folder + "\" + pic + ".jpg")
End If
End Sub

کد رو نگاه کنید مثلا اگه یارو یه اسم اشتباه تو تکس باکس داد می خوام ببینه اون اسمی که میده در فولدرم با این نام هست اگه نیست یه پیغام ارور بهش بده
در واقع این برنامه کارش اینه که می گه مثلا تیم برزیل رو در تکس 1 می نویسه که به فولدر برزیل وارد می شه و بعد مثلا کارلوس رو می نویسه و دکمه رو که زد عکس کارلوس رو که با نام Carlos.jpg در فولدر Brazil رو نشون می ده
اگه کسی می تونه کمک کنه که خیلی گیرم
ممنون از همتون

[m_nejad]

از تابع dir استفاده کن تا تشخیص بدی فایل وجود داره یا نه
filename= "F:\picture\" + folder + "\" + pic + ".jpg"
If Dir(filename) <> "" Then

[navid_gh]

آقا ممنون الان می رم امتحان کنم
دمت گرم که جواب دادی