XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei-Prüfung
Lauffähig ab Profan-Version 5.0
titel:    Überprüfen ob Datei vorhanden.
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
datum:    22.01.2001
-----------------------------------------------
Erklärung:
----------
Will man auf eine Datei zugreifen, egal ob zum lesen,
schreiben, anlegen, anzuzeigen, u.s.w
sollte man (hier mit Profanmittel) immer auf deren
Existenz prüfen
Declare ende%				Variablen vorbereiten
Declare Pruef$				hier eine Variable, welche nachher bewusst eine vorhandene Datei zugewiesen bekommt
Declare Nein$				und hier eine Variable für eine nicht vorhandene Datei
Die 3 nachfolgenden Zeilen, haben nur indirekt was mit diesem
Code zu tun. Es wird einfach eine Datei erstellt, um diese Abzufragen
-------------
ASSIGN #1,C:ISTDA.TXT		Zum Abfragen mal einfach ne leere Datei erstellen
REWRITE #1				hierzu siehe andere Vorlage von mir
CLOSE #1
-------------
Window 30,30 - 250,140			Fenster erstellen
Windowtitle Dateiprüfung		Titel des Fensters
let Pruef$=@FindFirst$ (C:ISTDA.TXT)	müsste existieren! Oben erstellt
let Nein$=@FindFirst$ (C:NIXDA.TXT)	wäre schon Zufall :-)
Wichtig bei @Findfirst und @Findnext ist, daß der komplette Pfad
und die Datei großgeschrieben wird!!!!!!!!
Hier nun die Abfragen dazu - obwohl Ergebnis schon bekannt :-)

If @neq$(Pruef$,)			wenn Inhalt in Variable Pruef$ (also nicht leer)

    Print Istda.txt gefunden!	Ausgabe

Elseif @equ$(Pruef$,)			wenn Variable Pruef$ leer

    Print Istda.txt nicht gefunden - Nanu?	Ausgabe

ENDIF

Print 				Leerzeile ausgeben
Print ******************************* Als Trennstrich auf Bildschirm
dasselbe nun mit der nichtvorhanden Datei

If @neq$(Nein$,)

    Print Nixda ist da? Geschummelt, oder?

Elseif @equ$(Nein$,)

    Print Nixda ist nicht da!

ENDIF

bitte beachtet auch den nächsten Befehl @FindNext$()
um mehrere Dateien einer Endung zu finden
Diese Variante ist in einem anderen Beispiel von
mir zu finden
Die folgende Schleife nur als Erweiterung gedacht.

WhileNot ende%				Solange nicht Variable ende% den Wert 1 hat.

    WaitInput
    Wend					zurück zur Hauptschleife /span>WhileNot)