TKSoft-Online

Public Function FileExist(strFileName As Variant) As Boolean
'Die Funktion prüft, ob eine Datei vorhanden ist
    On Error GoTo Fehler:
    FileExist = Dir$(strFileName)  \"\"
    Exit Function
Fehler:
    FileExist = False
    Resume Next
End Function
 
Private Sub Form_Load()
    If FileExist(\"D:\users\Daten2\PersVer\MouseHook.dll\") = False Then
        MsgBox \"Datei \" & \"D:\users\Daten2\PersVer\MouseHook.dll\" & \" nicht vorhanden.\", _
               vbCritical + vbOKOnly, \"Fehler...\"
        'hier der Aufruf um System herunter zufahren
    End If
End Sub