Abbrevia + Folders

[trifid]

Zitat:

kommt die Fehlermeldung: undeclared Identifier

verstehe ich nicht

Zitat:

kommt die Fehlermeldung: Incompatible Types

bei mir nicht reproduzierbar

Welche Version verwendest du ?
bist du mal mit dem Debugger durch, die sourcen sind ja mit dabei

Zitat:

AbZipper1.AddFiles('*.*', 0);

wenn der Desktop gezipt wird, dann simmt das BaseDirectory nicht

Ich bekomme bei diesem code keinen Fehler !
sonst hätte ich ihn ja nicht gepostet

Delphi-Quellcode:

   try
      AbZipper1.BaseDirectory := 'C:\mypath\';
      AbZipper1.FileName := 'my.zip';
      AbZipper1.StoreOptions := [soStripDrive, soRemoveDots, soRecurse];
      AbZipper1.AddFiles('*.*', 0);
      AbZipper1.Save;
      AbZipper1.CloseArchive;

      ShowMessage('zipped');
   except
      on E: Exception do ShowMessage('NO: ' + E.Message);
   end

und diese Variante geht auch

Delphi-Quellcode:

   try
      AbZipper1.BaseDirectory := 'C:\mypath\';
      AbZipper1.FileName := 'my.zip';
      AbZipper1.AddFiles('*.*', 0);
      AbZipper1.Save;
      AbZipper1.CloseArchive;

      ShowMessage('zipped');
   except
      on E: Exception do ShowMessage('NO: ' + E.Message);
   end

und die Komponente ist so im dfm-file beschrieben

Delphi-Quellcode:

  object AbZipper1: TAbZipper
    AutoSave = True
    DOSMode = False
    StoreOptions = [soStripDrive, soRemoveDots, soRecurse]
    Left = 120
    Top = 72
  end

versuche zuerst über einen statischen Pfad eine Lösung zu finden,
wenn es dann funktioniert kannst du immer noch ExtractFilePath(FileName) verwenden