Verzeichnis von A nach B kopieren.

[Pump3r]

Hallo, ich würde gerne meinen Ordner A (X:\Schriften) nach Ordner B (C:\Windows\Fonts) kopieren.

Ordner A soll nicht gelöscht werden.

In Ordner A befinden sich allerdings mehrere Dateiformate, ich würde aber wenn das möglich ist, am liebsten nur *.ttf Dateien kopieren.

Kann mir wer helfen?

Danke
Pump3r

[mirage228]

Hi,

da schaust Du am besten nach SHFileOperation

mfG
mirage228

[Pump3r]

hmm ist das normal das es das in der Delphi hilfe nicht nazeigt? :>

[JWeis]

Code:

uses: shellapi;

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_FILESONLY;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir + #0)
  end;
  Result := (0 = ShFileOperation(fos));
end;

binde das in deine unit ein

[Pump3r]

Dankeschön!!! :>
ISt es auch möglich nur den Ordnerinhalt in einen anderen Ordner zu kopieren?

:>

[MathiasSimmack]

Bist du eigentlich dem Suchlink gefolgt?

[Pump3r]

jop hab ich,
was macht das hier: ThreadCopy = class(TThread)

[MathiasSimmack]

Nichts was für deine zweite Frage bzgl. des Ordnerinhalts relevant wäre.

[mirage228]

Zitat von MathiasSimmack:

Bist du eigentlich dem Suchlink gefolgt?

Mh,

ich sehe grade, dass der Code-Library Suchlink nicht wirklich in der Code-Library, sondern im Forum sucht.

Also hier die Sachen aus der Code-Lib:

ShFileOperation von sakura
ShFileOperation Wrapper von mir

mfG
mirage228

[Pump3r]

danke für deine hilfe, ich werd mir die 2 teile mal anschauen :>

mfg pump3r