Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Дек

Рекурсивное копирование данных

Posted by Chas under Delphi

function TForm1.FDC(SourceDir, TargetDir: string; StopIfNotAllCopied,

  OverWriteFiles: Boolean): Boolean;

var

  SR: TSearchRec;

  I: Integer;

begin

  Result := False;

  SourceDir := IncludeTrailingBackslash(SourceDir);

  TargetDir := IncludeTrailingBackslash(TargetDir);

  if not DirectoryExists(SourceDir) then

    Exit;

  if not ForceDirectories(TargetDir) then

    Exit;

  I := FindFirst(SourceDir + '*', faAnyFile, SR);

  try

    while I = 0 do

    begin

      if (SR.Name <> '') and (SR.Name <> '.') and (SR.Name <> '..') then

      begin

        if (SR.Attr and faDirectory) = faDirectory then

          Result := FDC(SourceDir + SR.Name, TargetDir + SR.NAME,

            StopIfNotAllCopied, OverWriteFiles)

        if (SR.Attr and faDirectory) <> faDirectory then

            Result := CopyFile(Pchar(SourceDir + SR.Name), Pchar(TargetDir +

            SR.Name), False)

        else

          Result := True;

        if not Result and StopIfNotAllCopied then

          exit;

      end;

      I := FindNext(SR);

    end;

  finally

    SysUtils.FindClose(SR);

  end;

end;