Fehler beim Kopieren eines Verzeichnisses?

[Rakshasa]

Hallo!!

Ich benutze folgenden, bekannten Code um ein Verzeichnis zu kopieren:

Code:

function CopyDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_NoConfirmMkDir + FOF_NOCONFIRMATION;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir + #0)
  end;
  Result := (0 = ShFileOperation(fos));
end;

Nun habe ich das Problem, dass ich das kopierte Verzeichnis einfach nicht löschen kann, während mein Programm läuft! Ich kann zwar alle Dateien darin ohne Probleme löschen (alle Unterverzeichnisse sind also leer), aber die Routine zum Löschen schlägt jedesmal fehlt:

Code:

function DelDir(dir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do begin
    wFunc  := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom  := PChar(dir + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;

Auch mit RemoveDir() oder RMDir() keinen Erfolg.


Meine Frage ist also: Ist das kopierte Verzeichnis noch irgendwie geöffnet?? Sobald ich meine Anwendung nämlich beende, kann ich es mit den selben Routinen durch anderes Delphi-Prog problemlos löschen.
Wie kann ich dieses Verzeichnis "schließen"??

[JWeis]

Wenn ich dich richtig verstandenhabe möchtest du dein verzichnis a nach b verschieben. Richtig?

dann benutz doch movedir:

Delphi-Quellcode:

function MoveDir(const fromDir, toDir: string): Boolean; 
var 
  fos: TSHFileOpStruct; 
begin 
  ZeroMemory(@fos, SizeOf(fos)); 
  with fos do 
  begin 
    wFunc  := FO_Move; 
    fFlags := FOF_NoConfirmMkDir + FOF_NOCONFIRMATION; 
    pFrom  := PChar(fromDir + #0); 
    pTo    := PChar(toDir + #0) 
  end; 
  Result := (0 = ShFileOperation(fos)); 
end;

und nich zuerst copy- und dann noch deldir.

[Bernhard Geyer]

Ich denke dein Programm hat als aktuelles Verzeichnis nach dem Kopieren das Zielverzeichnis.
Und solange bei irgendeinem Programm das aktuelle Arbeitsverzeichnis auf einem Verzeichnis liegt kann dieses nicht gelöscht werden.

[Rakshasa]

Hallo,

vielen Dank für die Antworten, ich habe es jetzt herausgefunden:

Der Fehler lag nicht in der Routine zum Kopieren oder Löschen des Verzeichnisses, sondern davor in einer Routine, die mir mit FindFirst() usw. alle Dateien eines Verzeichnisses auflistet. Hier habe ich vergessen, ein FindClose() hineinzusetzen, daher waren die Dateien bzw. Verzeichnisse noch "geöffnet". Komischerweise konnte ich ja alle kopierten Dateien löschen, aber nicht die leeren Verzeichnisse. Naja, nach dem FindClose() können nun auch die Verzeichnisse problemlos gelöscht werden.