disk a

need say to disk is in the "a:\" but no message error in te compliation

ej: if disk not found() then
message "disk not ready"


understand


sorry my bad english


thanks

do a dir a:\ in code and when you see what message it
produces apply your code.

example:
if err.number = # 222

then
On Error Goto QuitNow:

Your subs


QuitNow:
if err.message = 222 then
msgbox "Sorry, there is no disk in drive A"
exit sub
endif

th err.number not work, is a variable or function of visual basic ?

or const for load ?


thanx

This is an example of [b]Error Trapping[b]

Code:

---

On Error GoTo 100
Dim mp As Integer
mp = 459549529
Exit Sub

100
If Err = 6 Then End

---