Dateipfad prüfen Dir$

[andrew22]

hi ho

wie kann ich denn prüfen ob ein Dateipfad mit datei überhaupt vorhanden ist ohne das ne Systemfehlermeldung kommt

BSP:

datei = Dir$(stringdateipfad+stringdatei)

if datei = "" Then
datei = Dir$(andererdateipfad+dateiname)
End If

das funktioniert leider nicht

hoffe auf Help

[diali]

Mit on Error kannst Du Systemfehler abfangen.

On error resume next

datei = Dir$(stringdateipfad+stringdatei)

If err then
' Systemfehler
err = 0
Else
...
if datei = "" Then
datei = Dir$(andererdateipfad+dateiname)
End If
End if
on error goto 0

[koehlerbv]

Nutze mal zusätzlich die Forensuche. Das hatten wir gerade erst vor wenigen Tagen und tiefschürfender auch schon früher.

Bernhard

[andrew22]

danke schön klappt jetzt

thx