Puedes hacerlo de varias formas ....
.
IF DISKSPACE(\"A:\") < 0
MESSAGEBOX(\"No hay disco en la unidad\")
ELSE
MESSAGEBOX(\"Si hay disco ....\")
ENDIF
--------------------------------------------
oFSO = CREATEOBJECT(\"Scripting.FileSystemObject\")
? oFSO.FolderExists(\"A:\\\")
--------------------------------------------
Verificar si existe un diskette en la unidad
http://www.davphantom.net/consultar.asp?id=258&op=3
Saludos...
David Amador Tapia
WebMaster \"La Web de Davphantom\"
www.davphantom.net
Cartagena. Colombia