Option Explicit

 
Private Sub Command1_Click()
  If FileExists("C:\WINDOWS\SYSTEM\SHELL32.DLL") Then
    Label1.Caption = "Datei existiert"
  Else
    Label1.Caption = "Datei existiert nicht"
  End If
End Sub

 
Private Sub Command2_Click()
  If FolderExists("C:\WINDOWS\SYSTEM\") Then
    Label2.Caption = "Verzeichnis existiert"
  Else
    Label2.Caption = "Verzeichnis existiert nicht"
  End If
End Sub

 
Function FileExists(Datei$)
  'Datei auf Existenz prüfen
  FileExists = (Dir(Datei$) <> "")
End Function

 
Function FolderExists(Folder$)
  'Verzeichnis auf Existenz prüfen
  FolderExists = (Dir(Folder$) <> "")
End Function

 
'Backslash wenn notwendig an Pfadnamen anhängen
'Die Routine: Ergebnis$ = CheckPath$(Pfad$) + Datei$
Function CheckPath$(Pfad$)
  If Right$(Pfad$, 1) <> "\" Then
      CheckPath$ = Pfad$ + "\"
    Else
      CheckPath$ = Pfad$
  End If
End Function

 
'Die Routine: Ergebnis$ = AppPath + Datei$
Function AppPath()
   Dim tmp$
   tmp$ = App.Path
   If Right(tmp$, 1) <> "\" Then tmp$ = tmp$ & "\"
   AppPath = tmp$
End Function