Datei per Befehl von A nach B kopieren??

[theo]

aber man müste noch die FileUtil einfügen, hat ja iaby auch schon gesagt, also so:

uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons, FileUtil;

Das hat aber pardox's Lösung auch nicht!?

[paradox]

*rot werd*

sorry ich habs nicht compiliert

[Quit]

Geht dies auch mit ganzen Verzeichnissen..?

[Napster]

kann ich auch ganze verzeichnisse per befehl löschen??

[theo]

kann ich auch ganze verzeichnisse per befehl löschen??

@Napster @Quit

Stellt euch doch nicht so an!
Ich hab schon mal den Link gepostet:
http://www.freepascal.org/docs-html/lcl ... dex-5.html" onclick="window.open(this.href);return false;

Tip: Verzeichnis heisst auf Englisch "directory" und löschen heisst "delete"
Also vielleicht DeleteDirectory?

[Christian]

Wiso sind die Prozedurnamen auch immer in Englisch und die Bezeichner undOperatoren könnt auch mal jemad übersetzen oder. tztz

[iaby]

nachdem wir alle den sourcode von lazarus haben müsste das ja schnell gemacht sein

[theo]

Naja gut, die Frage von Quit ist vielleicht doch nicht so simpel.
Ganze Verzeichnisse und Unterverzeichnisse mit Daten kopieren?
Gibt's das Pfannenfertig für X-Platform oder muss man mit FindFirst / FindNext rekursiv durchrattern?

[Christian]

Soweit ich weiss gibts keine Fertige lösung aber die paar Zeilen für den rekursiven Aufruf sind ja aucdh nicht so schlimm oder ?!

[Quit]

@ Christian: Ja genau, danach machen wir so eine gruuslige Sprache wie WINLOGO (oder wie hiess die, total weird wo variablen mit 'variable bezeichnet wurden? Schauder)

Hm Ok, dann muss ich mir wohl etwas zusammenbasteln... Juchu.

Danke.

[theo]

Hm Ok, dann muss ich mir wohl etwas zusammenbasteln... Juchu.

Bisschen Googlen dann findest du das schon.

z.B. hier (runterscrollen):
http://www.experts-exchange.com/Program ... 49426.html" onclick="window.open(this.href);return false;

Code: Alles auswählen

procedure TForm1.CopyFolder(SrcFolder, ToFolder : String);
var
  SearchRec : TSearchRec;
  Src, Dst     : String;
 
begin
  Src := IncludeTrailingBackslash(SrcFolder);
  Dst := IncludeTrailingBackslash(ToFolder);
  ForceDirectories(Dst);
   if FindFirst(Src + '*', faAnyFile, SearchRec) = 0 then
    try
      repeat
        with SearchRec do
          if (Name <> '.') and (Name <> '..') then
            if (Attr and faDirectory) > 0 then
              CopyFolder(Src + Name, Dst + Name)
            else
              CopyFile(Pchar(Src + Name), PChar(Dst + Name), True);
      until FindNext(SearchRec) <> 0;
    finally
      FindClose(SearchRec);
    end ;
end;

Achtung: Hab ich nicht mit Lazarus getestet. Aber die Idee müsste stimmen.