Einzelnen Beitrag anzeigen

LuCSteR

Registriert seit: 16. Sep 2005
168 Beiträge
 
#24

Re: Verzechniss: alle beinhaltenden Ordner ermitteln?

  Alt 3. Sep 2008, 17:31
Irgendwie traurig, ich schlag mich den ganzen Nachmittag mit so einem trivialen Problem rum. Warum gibt es nicht einfach eine Standard Funktion, womit man ein Verzeichnis in ein anderes verschieben kann?

Das ist echt zum Mäuse melken.

Aufruf:
Delphi-Quellcode:
var
  i:integer;
  s:TStringList;
  h1, h2:string;

begin //alles in TempDownloadDir nach DownloadDir kopieren, danach TempDownloadDir löschen
      s:=TStringList.Create;
      ListSubDirs(TempDownloadDir, s);

      h1:=TempDownloadDir;
      //letzten Backslash abschneiden
      Delete(h1, Length(h1), 1);
      
      h2:=DownloadDir;
      //letzten Backslash abschneiden
      Delete(h2, Length(h2), 1);
      
      try
        for i:=0 to s.Count-1 do MoveDir(h1+s[i], h2+s[i]);
      finally
        s.Free;
      end;
      
      DeleteFile(h1);
end;
Das MoveDir funktioniert (getestet) zb. so MoveDir(h1, h2); einwandfrei...Nur nicht in der Schleife mit der StringListe...
Ich mache da morgen weiter und werd mal schaun, was überhaupt in der Liste drinne steht. Kein Bock jetzt mehr.

Danke für die Hilfe DaddyH.
  Mit Zitat antworten Zitat