[Delphi] Kopiowanie katalogów

0

Jak skopiować katalog z plikami (i podkatalogami). Próbowałem ShFileOperation() z FAQ, ale z tego co widzę radzi sobie jedynie ze starymi DOS-owymi (8-literowymi) nazwami. Ma ktoś jakąć gotową procedure kopiującą katalogi.

0

Nie wiem czy dobrze próbowałeś, bo u mie się kopiują wszelkie nazwy, w następujący sposób (procedurka z jednego z moich programów o szerokim użyciu, działa zawsze i wszędzie):

procedure TForm1.aTimerTimer(Sender: TObject);
var FOS:TSHFileOpStructA;
begin
with FOS do
begin
Wnd:=Handle;
wFunc:=FO_COPY;
pFrom:=pchar(lok+'\Baza\.');
pTo:='c:\temp\KXImmeArch\';
fFlags:=FOF_ALLOWUNDO or FOF_NOCONFIRMMKDIR or FOF_NOCONFIRMATION or FOF_SIMPLEPROGRESS;
lpszProgressTitle:=Archiwizacja tymczasowa ...';
fAnyOperationsAborted:=False;
end;
if SHFileOperation(FOS)&lt&gt0 then
ShowMessage('Wystąpił błąd podczas archiwizacji tymczasowej')
else
if FOS.fAnyOperationsAborted then
ShowMessage('Archiwizacja tymczasowa została przerwana');
end;

KR IS

1 użytkowników online, w tym zalogowanych: 0, gości: 1