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 |