kopiowanie...

Jak skopiować katalog z plikami?--Pozdrawiam

Pracuję w Delphi 6

Hm niestety chyba się nieda całego katalogu musisz napisać kod który najpierw utowrzy nowy katalog potem pętle która przegra wszystkie pliki a na końcu skasować pusty już stary katalog.. {browar} --Delphi 6; Pozdrawiam eSka :-)

nie wiem czy to dziala ale moze jednak ... :-)

uses ShellAPI ;
procedure TForm1.Button1Click(Sender: TObject);
var
S : TSHFileOpStruct;
begin
S.Wnd := Handle;
S.wFunc := FO_COPY; * operacja - kopiowanie
S.pFrom := 'C:\gry'; * z jakiego katalogu?
S.pTo := 'C:\Windows\Pulpit\gry'; * do jakiego katalogu?
S.fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION or FOF_SIMPLEPROGRESS;
S.fAnyOperationsAborted := True; * jest mozliwosc anulowania?
S.lpszProgressTitle := 'Trwa kopiowanie. Nie widzisz?'; * tekst

ShFileOperation(S); * wykonaj
end;

to kod z Delphi FAQII ktore mozesz zassac stad:
http://www.4programmers.net/programmes/faqII.zip ---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-