VERIFICAR SE EXISTE DISCO NA UNIDADE A:

USUARIO.EXCLUIDOS 28/03/2004 09:48:56
#17325 Resposta escolhida

se voce fizer isso e tiver disco, ele retorna algo
se nao tiver, ele da erro de acesso (Run time error 52)
ai basta tratar o erro

Option Explicit

Private Sub Form_Load()
Caption = Dir("a:\*.*", vbNormal)
End Sub