code to check a: drive has a disk in

hi

How do i ensure that the user has put a disk in the drive. I have an msgbox which pops up telling them to put a disk in before contiuning however if their is no disk in it throughs out a debug.

This worked for me.


Sub test()

On Error GoTo MY
MyNAme = Dir("A:\")
Exit Sub

MY:
MsgBox "Please insert disk in A:"

End Sub



Mangesh

that worked but how do i loop that until there is a disk in there?

Again, this worked for me:


Private Sub CommandButton1_Click()

ny:
a = test
If a = 1 Then
MsgBox "Insert disk"
GoTo ny
End If

End Sub

Function test()
On Error GoTo my
test = Dir("A:\")
Exit Function

my:
test = 1

End Function



Mangesh

i am having problems trying to implement within my code because of the function could you tell me abit more about functions?

In your code, when you want to check the A: part, simply use:

ny:
a = test
If a = 1 Then
MsgBox "Insert disk"
GoTo ny
End If


When your code is over, put the function in the earlier post.



Mangesh

thanks for thank however i know the user has an A: drive I just need to know how to check if the disk is in anf if not bring out an error message and do so until a disk has been inserted.