ARJ-Packer

[taheri]

Arj-Packer.

Wir haben eine hausinterne Datenbank. Wenn die User Anhang in Datenbank anlegen. Werden die Anhänge durch eine selbes geschriebene Tools mit Arj gepackt und angehängt.
Jetzt fängt das Problem an. Arj ist ein dosanwendung. Er kann sich die Letzte Adresse nicht merken. (winzip kann man ja nicht in Notes integrieren. d. h  wenn die User  in Netz arbeiten ,müssen lange blättern. Damit Sie dazugehörige Dateien im netzt  finden. wenn Sie einmal soweit sind ,springt bei zweitemal Arj wieder in dataverzeichniss im Notes.bei vielen Dateien ist sehr umständlich. hat jemand eine Lösung.wie ARJ die letzte Adresse sich wie winzip  merkt. Tool ist unter.

dat:=@Prompt( [LOCALBROWSE];"Anhang";"Anhang auswählen");
@If(Dat = ""; @Return(1);"");
file := @RightBack(dat;"\\" );
file_ := @ReplaceSubstring(file;".";"_" ) ;
datei := @Left(file;".");
typ := @RightBack(dat;"." ) ;
@If(typ != "plt";@Return(@Prompt([OK];"Fehler";"Bitte eine plt-Datei auswählen!"));"");
@Command([EditDocument];"1") ;
pfad_tmp := @GetProfileField("UserProfile" ; "TempDir"; @UserName);
pfadTempDir := @If(@IsError(pfad_tmp) | pfad_tmp = ""; "C:\\Temp\\"; pfad_tmp);
comm95 := "C:\\Command" ;
commparm := "/C = " + pfadTempDir + "X.Bat \"" + dat + "\"   \"" + file_+ "\"";
commNT := "c:\\WINNT\\SYSTEM32\\CMD.exe" ;
sys := @Platform([Specific]) ;
@If(@Contains( sys; "/NT");
  @Command([Execute];commNT;commparm);
  @Command([Execute];comm95;commparm));
@Prompt([OK];"Fertig";"Das war\'s");
@Command([EditGotoField];"Plot") ;
@Command([EditInsertFileAttachment];pfadTempDir+file_+".arj")

[taheri]

Guten Morgen:

Schade ,Ich dachte, dass jemand heute Morgen eine Lösung fuer mich hat,
Was macht Ihr alle mit großen Anhänge?

[_Arne_]

Hi,

was genau meinst mit " Letzte Adresse " merken??

Gruß,
Arne  

[taheri]

Wenn Sie mit Winzip eine Datei packen, merkt sich Winzip letzte Ordner. D.h Sie brauchen alle Dateien, die packen wollen, unter einem Ordner kopieren. Winzip greift immer auf diesen Ordner bis Sie selber dies ändern, bei Notes ist auch so. Wenn Sie Befehl Datei anhängen benutzen, greif er immer auf letzte Ordner, die Sie benutzt haben. Sie müssen natürlich.wenn Sie große Dateiformate haben, diese Anhänge erst packen dann anhängen. Diese Tools was Ich geschrieben habe.packt die Anhänge im Notes dirkt mit ARJ und legt Sie in eine Difienierte RTF Feld. wobei dies springt immer als erste in dataverzeichniss im Notes. Und nicht auf letzte Ordner.was Ich gerade benutzt habe.
Wenn die Dateien auf Filetserver liegen. Müssen die User lange im Netz weiter suchen bis Sie ihre Ordner auf Filetserver erreichen. Und wenn Sie 50 Dateien anhängen wollen.mussen Sie 50 Mal von datavereichniss vom Notes rüber zum Fileserver. Sehr zeitaufwendig

[taheri]

Ich habe es vergessen. Für Tools gibt es auch ein Agent. wo man angibt wo Arj.exe liegt. Aber Agent ist in Ordnung.das Problem liegt in Tools ,weil er sich nicht den letzt Ordner merken kann.

[eknori]

Notes merkt sich das letzte Dir in der Variablen FileDlgDirectory=F:\Notes

Habs noch nicht versucht, aber man könnte evtl. vor Ausführung deiner Routine mit @SetEnvironment die Variable auf ein andres Dir setzen.

eknori

[taheri]

Danke fuer Antwort eknori

Das habe Ich auch versucht. Aber wenn Ich Directory=Notes\data ändere ,startet Notes nicht mehr. weil ID unter Dataverzeichniss ist. sicherlich kann man nötige Datein wie ID. Adressbuch unter einem Selbst defienierte Ordner liegen. Aber dies bedeutet erst beim jedem User Lieblingsordner fragen und notes.INI änderen.
Aber diese Ordner ist nicht immer konstant.

[eknori]

NICHT Directory !!!

Es gibt bnoch eine weitere Variable

FileDlgDirectory=

[taheri]

gerade getest. Leider nicht
:-/