چه جور می شه برنامه رو طوری تنظیم کرد که اگه برنامه error خاصی داد کاری رو که براش مشخص می کنی انجام

[amintiger]

چه جور می شه برنامه رو طوری تنظیم کرد که اگه برنامه error خاصی داد کاری رو که براش مشخص می کنی انجام بده ؟
مثلا موقع خوندن فایل متنی e:\abc.txt اگه error مربوط به وجود نداشتن رو داد خود به خود این فایل رو بسازه

[kuh_nur]

سلام به refrence پروژت microsoft scripting runtime رو اضافه کن

Dim fso As New FileSystemObject

Private Sub Form_Load()
If fso.FileExists("c:\abc.txt") = False Then
s = MsgBox("The File Not Found!" & vbCrLf & "Are You Want To Make it?", vbExclamation + vbYesNo, "Error")
If s = vbYes Then
fso.CreateTextFile "c:\abc.txt"
End If
End If
End Sub

[M_Maskout]

برای مدیریت خطاها از دستورهای
On [Local] Error Goto label-name
و یا
On [Local] Error Resume Next
استفاده کنید. و در قسمتی از روتین خود با استفاده از تابع Err خطای بوجود اومده رو مدیریت کنید و با دستورات Resume و Resume Next به روند اصلی برنامه برگردید:



Private Sub Command1_Click()
On Error GoTo e
Dim i As Byte

Debug.Print 20 / i

Exit Sub

e:
Select Case Err
Case 11:
MsgBox "بروز خطای تقسیم بر صفر"
i = 10
Resume
Case Else
MsgBox "بروز خطای پیش بینی نشده " + CStr(Err)
Resume Next
End Select

End Sub