PDA

View Full Version : جلوگیری از اررور در برنامه


xrezax
دوشنبه 25 خرداد 1388, 18:48 عصر
من یه برنامه دارم که یک فایلی به اسم reza.jpg در درایو D رو نشون می ده اگه این فایل در این قسمت نباشه برنامه اررور ران تایم می ده آیا راهی هست که برنامه اروور نده ؟؟
Tasiyan
دوشنبه 25 خرداد 1388, 19:08 عصر
On Error Resume Next

:لبخند:
reza_mn
دوشنبه 25 خرداد 1388, 20:25 عصر
If Dir("d:\reza.jpg") = "" Then
MsgBox "یکی از فایلها حذف شده است"
Exit Sub
End If
parselearn
سه شنبه 26 خرداد 1388, 08:23 صبح
از fso هم مي تونيد استفاده كنيد
FileExists
xrezax
سه شنبه 26 خرداد 1388, 12:32 عصر
از fso هم مي تونيد استفاده كنيد
FileExists

میشه یه مثالی برام بزنی ، ممنون میشم :قلب:
parselearn
چهارشنبه 27 خرداد 1388, 08:11 صبح
البته روشي كه دوستمون گفتن روش خوبيه ولي همه جا كمك نمي كنه

در پنجره رفرنس Microsoft Scripting Runtime رو فعال كنيد

متغيري از نوع FileSystemObject ايجاد كنيد
سپس با استفاده از متد FileExists وجود فايل رو بررسي كنيد



Dim Exfile As New FileSystemObject

If Exfile.FileExists(App.Path + "\reza.jpg") = True Then
MsgBox "Exists File"
End If