try this

Function FloppyInDrive()
Dim sTemp

On Error GoTo haveError
sTemp = Dir("A:\")
FloppyInDrive = True
Exit Function

haveError:
FloppyInDrive = False
End Function

Tim.

"jim simpson" wrote in message
news:54Kpd.2597$QR.2064@lakeread01...
I would like to determine if the floppy in the "A" drive and if it is
post a
msgbox saying so. I have not been able to do this and haven't seen
any
messages on the subject.

Can someone please help me?.
Thanks

Jim