hi
also ich hab hier 2 codes :
1.
Private Function FileExists(Datei As String) As Boolean
On Error Resume Next
FileExists = Dir$(Datei) <> ""
FileExists = FileExists And Err = 0
On Error GoTo 0
End Function
2.
Dim a
a = App.Path
If Instr(1, a, Environ("Windir")) = 1 Then
msgbox " Datei gefunden "
___________________________________________________________________________
das problem ist ich weiß nicht wo ich meine daten einsetzen soll..
Die daten :
Der Pfad : Windowsverzeichniss
Die zu überprüfende Datei : hallo.exe
___________________________________________________________________________
falls jemand einen anderen code hat, kann er ihn gerne posten
also ich hab hier 2 codes :
1.
Private Function FileExists(Datei As String) As Boolean
On Error Resume Next
FileExists = Dir$(Datei) <> ""
FileExists = FileExists And Err = 0
On Error GoTo 0
End Function
2.
Dim a
a = App.Path
If Instr(1, a, Environ("Windir")) = 1 Then
msgbox " Datei gefunden "
___________________________________________________________________________
das problem ist ich weiß nicht wo ich meine daten einsetzen soll..
Die daten :
Der Pfad : Windowsverzeichniss
Die zu überprüfende Datei : hallo.exe
___________________________________________________________________________
falls jemand einen anderen code hat, kann er ihn gerne posten