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