EVA File Exists
Das Makro ist als ASCII gespeichert.
Deshalb muss es mit
"input 'Laufwerk:/Pfad/eva_file_exists.mac'" geladen werden.
Über das Menu geht's mit
Datei->Importieren->Makro->Laden(ASCII)
und folgender Auswahl von "eva_file_exists.mac".
Der Aufruf lautet eva_file_exists DATEI
Für DATEI muss der komplette Dateiname incl. Pfad eingegeben werden.
{###########################################################################}
{### Datei eva_file_exists.mac ###}
{### prüft auf Vorhandensein einer Datei ###}
{### Erstelldatum: 29.03.2012 ###}
{### (c) 2012 by E.V.A. Robert Hoffmann ###}
{### ###}
{### als Parameter zu prüfende Datei incl. kompl. Pfad angeben ###}
{### globale Variable eva_file_existiert = 0 --> nein ###}
{### globale Variable eva_file_existiert = 1 --> ja ###}
{### ###}
{### Änderungsdatum: ###}
{### Art der Änderung: ###}
{### ###}
{### ###}
{### Zeit: ###}
{### Erforderliche Makros: ###}
{###########################################################################}
DEFINE eva_file_exists
PARAMETER Datei_1
LET eva_file_existiert 0
TRAP_ERROR
OPEN_INFILE 9 Datei_1
IF (CHECK_ERROR)
DISPLAY("Datei "+Datei_1+" existiert nicht.")
CANCEL
ELSE
CLOSE_FILE 9
LET eva_file_existiert 1
END_IF
END_DEFINE
Wenn die Makros nützlich sind, ist eine Spende natürlich gern gesehen :-)