Verzeichnisinhalt kopieren OHNE Ordner

[Ascuriah]

Hi DP´ler

Zum kopieren von Verzeichnisinhalten gibt es ja folgende Funktion:

Delphi-Quellcode:

function DoFileWork(aOperation: FILEOP_FLAGS; aFrom, aTo: AnsiString;
    Flags: FILEOP_FLAGS): Integer;
var
  FromPath, ToPath: AnsiString;
  SHFileOpStruct: TSHFileOpStruct;
begin
  FromPath := aFrom + #0#0;
  ToPath := aTo + #0#0;
  with SHFileOpStruct do
  begin
    Wnd := 0;
    wFunc := aOperation;
    pFrom := PAnsiChar(FromPath);
    if ToPath <> '' then
    begin
      pTo := PAnsiChar(ToPath)
    end else begin // target available
      pTo := nil;
    end; // target not available
    fFlags := Flags;
  end; // structure
  Result := SHFileOperationA(SHFileOpStruct);
end;

Die Problematik ist nun das ich in meinem Zielverzeichnis NUR die Daten des Quellverzeichnisses möchte, ohne den letzten Ordner des Pfades. Heist im klartext:
Wenn ich so ausführe

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  DoFileWork(FO_COPY, 'C:\Olap\Daten\Leer', 'C:\OLAP', FOF_FILESONLY);
end;

Erstellt er in C:\OLAP immer den Ordner Leer in dem dann die gewünschten Dateien liegen. Ich möchte es aber das die Dateien direkt im Ordner OLAP landen. Das FLAG hinten mit FOF_FILESONLY zu setzen bringt leider garnix(zumindest is das ergebnis das selbe ob es gesetz ist oder nicht).

Wäre super wenn jemand nen Tipp hätte

mfg

Ascu

[DeddyH]

Wie ist es so?
DoFileWork(FO_COPY, 'C:\Olap\Daten\Leer\*', 'C:\OLAP', FOF_FILESONLY);

[Ascuriah]

^^ War ja zu erwarten das das (mal wieder ) stimmt. Kurz zur Erläuterung, * steht einfach nur dafür das alles was in diesem Ordner liegt kopiert wird oder seh ich das falsch? Ach ja und kann es sein das das FOF_FILESONLY Flag so garnich geht weil das ändert nämlich nüscht.

[DeddyH]

Gerade noch einmal nachgelesen:

Zitat:

FOF_FILESONLY

Perform the operation only on files (not on folders) if a wildcard file name (*.*) is specified.

Also musst Du die Wildcard von * in *.* ändern, dann sollte es hoffentlich klappen.

[Ascuriah]

Hm leider immer noch das selbe ob * oder *.* das FOF_FILESONLY bewirkt nichts. Naja funktionieren tuts ja schon ma^^

[DeddyH]

Nächster Vorschlag:

Zitat:

FOF_NORECURSION

Only perform the operation in the local directory. Do not operate recursively into subdirectories, which is the default behavior.