Pfadinhalte eine Ebene aufwärts kopieren

[Sherlock]

Wir waren in verschiedenen Arbeitsverzeichnissen
Ich war in Temp, Du woanders. .. bezieht sich immer auf das Arbeitsverzeichnis. Danke für die Erinnerung daran.

Sherlock

[DeddyH]

Vermutlich wird das Delphi-Pendant zu

Code:

move C:\temp\alt\*.* C:\temp\alt\..

gesucht. (ja, ich weiß, das geht auch kürzer, nur um es hervorzuheben)

[Rolf Frei]

Code:

C:\foo\bar>move c:\temp\alt ..
        1 Verzeichnis(se) wurde(n) verschoben.

Das verschiebt den Inhalt von c:\temp\alt in den übergeordneten Order in dem ich mich gerade befinde ("currentdir"\..). Also nicht nach c:\temp. Um es nach c:\temp zu verschieben müsste es so lauten:

Code:

C:\foo\bar>move c:\temp\alt c:\temp\alt\..

oder ein CD c:\temp\alt davor.

Der korrekte Code des TE wäre also:

Code:

fDir := 'C:\temp\alt';
fDirDst := fDir + '\..';
TDirectory.Move(fDir, fDirDst);

[Schokohase]

@Rolf Frei

Wenn wir den Worten des TE die nötige Aufmerksamkeit angedeihen lassen und diesen auch Glauben schenken, dann will der den Inhalt von alt ein Verzeichnis höher verschieben.

Also aus das

Code:

C:\
+- temp\
   +- alt\
      +- foo.txt

mach das

Code:

C:\
+- temp\
   +- foo.txt

Du zeigst ihm, wie er von da

Code:

C:\
+- temp\
   +- alt\
      +- foo.txt

nach da kommt

Code:

C:\
+- temp\
   +- alt\
      +- foo.txt

Wenn du es nicht glaubst, dann einfach mal fröhlich ausprobieren.

Ich kann ja auch mal den Ablauf in Worte fassen:

1. Verschiebe jeden Eintrag in C:\temp\alt nach C:\temp.
2. Lösche C:\temp\alt.

[Rolf Frei]

Mein Code würde genau das machen, was der TE will, nur geht das nicht, weil die Windows API funktion MoveFile (gekapselt durch TDirectory.Move) als Ziel ein "nicht existierendes" Verzeichnis erwartet (siehe MSDN MoveFile Doku). Besteht das Zielverzeichnis bereits kommt der Fehler "Das angegebene Verzeichnis ist bereits vorhanden".

Das Ganze lässt sich also mit einem simplen Move Befehl nicht lösen. Da muss man alle Files einzeln kopieren und danach löschen.

Code:

procedure RFCopyDirectory(SourceDir, DestDir: string;
  OverWrite: Boolean = True;
  const FileMask: string = '*.*';
  Recursive: Boolean = True);
var
  SR: TSearchRec;
begin
  if (SourceDir <> '') and (DestDir <> '') then
  begin
    SourceDir := IncludeTrailingPathDelimiter(SourceDir);
    DestDir := IncludeTrailingPathDelimiter(DestDir);
    if not DirectoryExists(DestDir) then
      ForceDirectories(ExcludeTrailingPathDelimiter(DestDir));
    if FindFirst(SourceDir + FileMask, faAnyFile, SR) = 0 then
    try
      repeat
        if (SR.Name <> '.') and (SR.Name <> '..') then
        begin
          if (SR.Attr and faDirectory) <> 0 then
          begin
            if Recursive then
              RFCopyDirectory(SourceDir + SR.Name, DestDir + SR.Name)
          end
          else
          begin
            if not CopyFile(PChar(SourceDir + SR.Name),
              PChar(DestDir + SR.Name), not OverWrite) then
            begin
              if GetLastError <> ERROR_FILE_EXISTS then
                RaiseLastOSError;
            end;
          end;
        end;
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  end;
end;

function RFDelTree(Directory: string; const DelParent: Boolean = True;
  const FileMask: string = '*.*';
  const OlderThan: TDateTime = 0.0): Boolean;
var
  SR: TSearchRec;
begin
  Result := True;
  if Directory <> '' then
  begin
    if not DirectoryExists(Directory) then
      Exit;

    Directory := IncludeTrailingPathDelimiter(Directory);
    if FindFirst(Directory + FileMask, faAnyFile, SR) = 0 then
    try
      repeat
        if (SR.Name <> '.') and (SR.Name <> '..') then
        begin
          if (OlderThan = 0.0) or
            ({$IF RTLVersion >= 22}SR.TimeStamp{$ELSE}FileDateToDateTime(SR.Time){$IFEND} < OlderThan) then
          begin
            if (SR.Attr and faDirectory) <> 0 then
              RFDelTree(Directory + SR.Name)
            else if not DeleteFile(Directory + SR.Name) and
              (Win32Platform = VER_PLATFORM_WIN32_NT) then
              MoveFileEx(PChar(Directory + SR.Name), nil, MOVEFILE_DELAY_UNTIL_REBOOT);
          end;
        end;
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;

    if DelParent then
    begin
      Result := RemoveDir(Directory);
      if not Result and (Win32Platform = VER_PLATFORM_WIN32_NT) then
        Result := MoveFileEx(PChar(Directory), nil, MOVEFILE_DELAY_UNTIL_REBOOT);
    end
    else
      Result := True;
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  fDir, fDirDst: String;
begin
  fDir := 'C:\temp\alt';
  fDirDst := fDir + '\..';

  { Kopieren aller Dateien und Unterverzeichnisse aus dem Ordner fDir ins Zielverzeichnis fDirDst } 
  RFCopyDirectory(fDir, fDirDst);  

  { Löschen des Quellverzeichnisses inklusive aller Unterverzeichnisse }
  RFDelTree(fDir);  
end;

[Luckie]

Zerleg doch den Quellpfad und lass als Ziel, die letzte Ebene weg.

[Rolf Frei]

Das nützt ihm nichts. Mit MoveFile (TDirectoy.Move) lässt sich ein Verzeichnis nicht in ein bereits bestehendes verschieben. Er musss da alle Dateien in den neuen Ort kopieren und danach im alten Ort löschen.

[Uwe Raabe]

Zitat von Rolf Frei:

Mit MoveFile (TDirectoy.Move) lässt sich ein Verzeichnis nicht in ein bereits bestehendes verschieben.

Wenn ich das richtig sehe, wendet TDirectory.Move in Delphi 10.2 Tokyo das RenameFile/MoveFile nur auf Dateien an, nicht auf Verzeichnisse.

[Rolf Frei]

Zitat von Uwe Raabe:

Zitat von Rolf Frei:

Mit MoveFile (TDirectoy.Move) lässt sich ein Verzeichnis nicht in ein bereits bestehendes verschieben.

Wenn ich das richtig sehe, wendet TDirectory.Move in Delphi 10.2 Tokyo das RenameFile/MoveFile nur auf Dateien an, nicht auf Verzeichnisse.

Ja weil die Windows API MoveFile nur mit nicht existierenden Zielverzeichnissen arbeitet. Für diesen Fall wird in
TDirectory.CheckMoveParameters überprüft, ob das Zielverzeichnis schon besteht. Wenn ja, wird eine Exception ausgelöst. Das ist das Problem das der TE hat. Er will das Verzeihnis/Inhalt von c:\temp\alt in das Verzeichnis c:\temp\alt\.. (also c:\temp) verschieben. c:\temp exisistiert aber bereits und löst daher die Exception aus.

Im Prinzip macht TDirectoy.Move mehr oder weniger das, was ich mit meinen beiden obigen Routinen mache, also Kopieren und Löschen, aber leider geht das hier nicht auf ein bestehendes Verzeichnis, wodurch diese Funktion für die gewünschte Aufgabe nutzlos ist. Mit den von mir oben geposteten Routinen geht das problemlos.

[zeras]

Danke an Allen.

Ich wollte in neuen Projekten auch einmal die neuen Klassen verwenden (TFILE, TPAH, etc.). Aber anscheinend läßt sich mein Problem nur mittels der Funktionen von Rolf lösen.
Danke Rolf.
Ich habe verschiedene Ansätze von euch probiert, aber immer kommt die Meldung, dass ein Pfad schon vorhanden sei. Ist er ja auch. Aber warum sollte man nicht alle Verzeichnisse und Dateien eine Ebene aufwärts verschieben können. Möglicherweise noch ein Denkfehler von Emba oder MS.