ACC07 File_exist fehler?

08/08/2008 - 18:55 von Remi Noel | Report spam
Hallo NG

Ich hab wieder mal ein Problem wo ich nicht klar komme :-((

Wenn das File (vollstàndiger Pfad und Name und .doc) existiert ist alles ok
Wieso, wenn das File nicht existiert, greift die GoTo File_existError nicht
Meldung: Laufzeitfehler 53 Datei nicht gefunden

(In ACC02 gibt es kein Problem damit)

Function File_exist(ByVal File As String) As Integer 'ok
Dim f

f = FreeFile
On Error GoTo File_existError
Open File For Input Access Read As #f
Close #f
File_exist = True
Exit Function

File_existError:
File_exist = False
Exit Function

End Function

Kann mir jemand die Augen öffnen :-)

Danke

Remi
 

Lesen sie die antworten

#1 Gunter Avenius
08/08/2008 - 19:21 | Warnen spam
Hallo Remi,

Remi Noel schrieb folgendes:
Ich hab wieder mal ein Problem wo ich nicht klar komme :-((

Wenn das File (vollstàndiger Pfad und Name und .doc) existiert ist alles ok
Wieso, wenn das File nicht existiert, greift die GoTo File_existError nicht
Meldung: Laufzeitfehler 53 Datei nicht gefunden

(In ACC02 gibt es kein Problem damit)

Function File_exist(ByVal File As String) As Integer 'ok
Dim f

f = FreeFile
On Error GoTo File_existError
Open File For Input Access Read As #f
Close #f
File_exist = True
Exit Function

File_existError:
File_exist = False
Exit Function

End Function

Kann mir jemand die Augen öffnen :-)



Warum verwednest Du nicht einfach "Dir" ?

If Dir dir("C:\Ordner.file.doc",vbNormal) <>"" then
' Datei da
else
' Keine Datei gefunden
end if

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

Ähnliche fragen