XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei: Ermitteln, ob eine Datei vorhanden ist oder nicht
REM FRAGE:      Wie ermittle ich, ob eine Datei vorhanden ist oder nicht?
REM AUTOR:      cnesm
REM HOMEPAGE:   www.cnesm.de.vu
REM HINWEISS:   Testen und Nutzen der Quelltexte auf eigene Gefahr
REM HINWINGUNG: Freie Nutzung der Quelltexte [freiwillige Erwähnung des Autors]
REM Überprüfen ob die Demo.txt existiert

If @Gt(@Len(FindFirst$(Demo.txt)),0)

    Print Es wurde eine TXTDatei mit Namen Demo.txt gefunden

Else

    Print Die Datei Demo.txt fehlt

EndIf

Waitkey
REM Alle vorhandenen TXTDateien ermitteln
Print @FindFirst$(*.txt)

WhileNot %IOResult

    Print @FindNext$()

Wend

Waitkey