Unterstützen Sie diese Seite, indem Sie zum Kauf bei unserem Partner von dieser Seite aus starten. Vielen Dank!




Bezahlter-Counter.de

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 :-)