---

Guten Tag miteinander

Ich möchte ein Makro erstellen, dass automatisch z.b. alle 5 min. eine Sicherungsdatei erstellt. Zudem sollte das Ganze noch unter einem angegebenen Verzeichnis gespeichert werden. Ich bin noch absoluter "Makro-Anfänger". Könnt ihr mir helfen?

DEFINE auto_save

  CURRENT_DIRECTORY 'h:'
  sw (*?*)
  .......

END_DEFINE

mfg burton

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hi
sieh mal in der hilfe unter AUTO_STORE_TIME nach

gruss aus finsterhennen

------------------
awi
André Weidmann

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Man sollte vielleicht noch erwähnen das autostore - zumindest unter Unix - immer den gerade aktuellen Befehl unterbricht, was die meisten meiner Kollegen hier ziemlich lästig finden.

Gruß

Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Burton,

ich bin zur Zeit nicht an meinem Rechner, aber wenn ich wieder zu Hause bin, ab 18.12. werde ich Dir hier einen Anhang reinstellen, der alle 20 Minuten unter einem anderen Namen in einem Turnus von 5 Verschieden Namen danach ueberschreibend deinen Bildschirm sichert. Jedesmal wenn Du auf Erstellen drueckst egal ob mit Maus oder Tablett wird die Zeit gezaehlt und wenn die 30Min. rum sind wird gespeichert in einem teporaerem Verzeichnis was Du selbst eingeben kannst in dem Macro.

Gruss aus New York Gerhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Burton,

hier das Macro:

DEFINE Tm_create_1
  store_work_xxx
  Sm_create_1
END_DEFINE

DEFINE Max_auto_save
  6 {7 x wird das Workfile gesichert}
END_DEFINE

DEFINE Store_work_xxx
  LOCAL Time_
  LOCAL Numstr
  LET Time_ (TIME)
  IF ((Time_ - Start_time)>Max_def_time)
    DISPLAY_NO_WAIT 'Automatische Sicherung !!!'
    IF (Nume<Max_auto_save)
      LET Nume (Nume+1)
    ELSE
      LET Nume 0
    END_IF
    LET Numstr (STR (Nume))
    STORE MI ALL DEL_OLD (Workfile+'-'+Numstr+'.mi')
    LET Start_time (TIME)
  END_IF
END_DEFINE

DEFINE Max_def_time
  600  { hier kann man mit den Zeiten etwas spielen}
END_DEFINE

let    Start_time    (time)

let    Nume  0

let    Workfile  'd:\tmp\xxx'

DEFINE Tron
  TRACE DEL_OLD 'd:/tmp/trace_on'
END_DEFINE

DEFINE Troff
  TRACE OFF
  EDIT_FILE 'd:/tmp/trace_on'
END_DEFINE

{ statt der xxx kann auch ein Name stehen }

{Bei jedem Druck auf erstellen 1 wird die Zeit und die Sicherung abgefragt}

{eventuell die Laufwerksangaben noch veraendern}

Gruss Gerhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Möchte mich noch ein bischen verspätet bedanken.
Vielen Dank für das Programm

Burton

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP