exsistiert die Datei ???

[Pure-r-Freak]

ich suche eine Abfrage die ausgibt, ob die angegebene Datei existiert.
etwa: if FileExist(Pfad$)
hoffe jemand weiß was
danke

[Kiffi]

> ich suche eine Abfrage die ausgibt, ob die angegebene Datei existiert.

FileSize(sFile.s) ist Dein Freund.

Grüße ... Kiffi

[Leo]

Genauer:

Code: Alles auswählen

Procedure FileExist(file.s)
    If FileSize(file) => 0 ;Es gibt auch 0 Byte Dateien :)
        ProcedureReturn #True
    Else
        ProcedureReturn #False 
    EndIf
EndProcedure

Debug FileExist("ABC:\efgha-_-.kkk[~_~]")
Debug FileExist("C:\Dokumente und Einstellungen\Leo\Desktop\winner.bmp")

[remi_meier]

Es gibt aber auch -3 Byte grosse Dateien!
Teste auf FileSize() = -1, wenn ja, dann File nicht da.

[sbehrens]

Noch besser:

IsFile()

Syntax

Ergebnis = IsFile(#File)
Beschreibung

Überprüft, ob die angegebene #File Nummer gültig und eine korrekt initialisierte Datei ist. Diese Funktion ist "kugelsicher" und kann mit jedem Wert benutzt werden. Ist das 'Ergebnis' ungleich null, dann ist das Objekt gültig und initialisiert, andernfalls wird null zurückgegeben. Dies ist der richtige Weg, um sicher zu stellen, dass eine Datei bereit zur Verwendung ist.
Unterstützte OS

Windows, Linux

mfG
Basti

[Edit]Ups, ich merke jetzt erst, dass das File für diese Funktion schon geladen sein muss. Bitte den Beitrag löschen.[/Edit]

[remi_meier]

Dann musst du sie aber zuerst versuchen zu öffnen mit ReadFile() also umständlicher.

[Pure-r-Freak]

Code: Alles auswählen

Pfad$=OpenFileRequester("Datei wählen....","C:\","*.*",0)  
       Exist = FileSize(Pfad$)
        If Exist = 1
        MessageRequester("Fehler", "Datei existiert nicht!", 0)
        Else 
          MessageRequester("existiert", "Datei existiert!", 0)
        EndIf     

kann mir jemand sagen warum das nicht klappt?????

PB hilfe:

Syntax

Ergebnis = FileSize(DateiName$)
Beschreibung

Gibt die Größe der angegebenen Datei zurück.

Besondere 'Ergebnis' Werte:

-1: Datei wurde nicht gefunden.
-2: Datei ist ein Verzeichnis.

[Pure-r-Freak]

ahh habs schon, anstatt -1 hab ich 1 benutzt
naja klappt super, trotzdem danke für eure mühe!!!

[remi_meier]

Weil du dich vertippt hast.
Linie 3

edit: lol