Sub S_Existiert ()
 
Dim fso as FileSystemObject
Set fso = New FileSystemObject
 
‘Überprüfung nach Laufwerk
If fso.DriveExists (“F:”) Then  
	MsgBox „Laufwerk F: existiert“
End If
 
‘Überprüfung nach Ordnern
If fso.FolderExists (“C:\WINNT”) Then  
	MsgBox „Ordner C:\WINNT existiert“
End If
 
‘Überprüfen nach Dateien
If fso.FileExists("C:\config.sys") Then
MsgBox "Datei config.sys existiert"
End If
 
End Sub