EVA Loesch in Papierkorb

{###########################################################################}
{### Datei eva_loesche.mac                                               ###}
{###                                                                     ###}
{### Verschiebt eine Datei in den Windows-Papierkorb                     ###}
{### Beispielaufruf: eva_loesche 'd:/Zeichnungsverzeichnis/Zeichnung.mi' ###}
{###                                                                     ###}
{### Erstelldatum:     04.01.2014                                        ###}
{### (c) 2014 by E.V.A. Robert Hoffmann                                  ###}
{###                                                                     ###}
{### Änderungsdatum:                                                     ###}
{### Art der Änderung:                                                   ###}
{###                                                                     ###}
{### Zeit:                                                               ###}
{### Erforderliche Makros:                                               ###}
{###########################################################################}

DEFINE eva_loesche
  PARAMETER D
  LOCAL E
  LOCAL Pa
  LOCAL Pe
  LOCAL C
  LOCAL I
  LOCAL cmd

  LET cmd ('d:\eva_me10_macros\share_source\loeschinpapierkorb.exe ')

  LET I 1
  LET Pa (D)
  LET Pe ''
  LOOP
    LET C (SUBSTR Pa I 1)
    IF (C<>'/')
      LET Pe (Pe+C)
    ELSE
      LET Pe (Pe+'\')
    END_IF
    LET I (I+1)
  EXIT_IF (I>LEN Pa)
  END_LOOP
  LET D (Pe)
  LET E (WINEXEC (cmd + '"' + D + '"'))
END_DEFINE

{###########################################################################}
{### Datei eva_loesche_aktuell.mac                                       ###}
{###                                                                     ###}
{### Verschiebt die im Drafting geladene Datei in den Windows-Papierkorb ###}
{### Beispielaufruf: eva_loesche_aktuell                                 ###}
{###                                                                     ###}
{### Erstelldatum:     04.01.2014                                        ###}
{### (c) 2014 by E.V.A. Robert Hoffmann                                  ###}
{###                                                                     ###}
{### Änderungsdatum:                                                     ###}
{### Art der Änderung:                                                   ###}
{###                                                                     ###}
{### Zeit:                                                               ###}
{### Erforderliche Makros:                                               ###}
{###########################################################################}

DEFINE eva_loesche_aktuell
  LOCAL Dateiname
  LOCAL cmd
  LOCAL Antwort
  LOCAL Fehler

  LET cmd ('d:\eva_me10_macros\share_source\loeschinpapierkorb.exe ')

  INQ_ENV 0 LET Dateiname (INQ 304)
  IF (Dateiname = 'Untitled') LET Dateiname '' END_IF

  IF (Dateiname <> '')
    READ 'aktuelle Datei wirklich in Papierkorb ?' DEFAULT 'j' Antwort
    IF ((Antwort='J') OR (Antwort='j'))
      LET Fehler (WINEXEC (cmd + '"' + Dateiname + '"'))
      IF (Fehler=NO_ERROR) DISPLAY('Datei ' + Dateiname + ' in Papierkorb verschoben') END_IF
    END_IF
  END_IF
END_DEFINE

Wenn die Makros nützlich sind, ist eine Spende natürlich gern gesehen :-)