IfExistHD

Private Sub Command1_Click()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox "Existiert Laufwerk D:? " & fso.driveexists("D:")
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set fso = Nothing
End Sub