Как копировать самый большой файл с папки которою я укажу

[misher]

Как копировать самый большой файл с папки которою я укажу и вставить в папку тоже которую я укажу. После чего удалить файл тот который копировал(с первой папки)?

[alex_fcsm]

В папке найти самый большой файл и переписать в папку. Что конкретно не получается

[misher]

И то, и другое...

[alex_fcsm]

procedure ListFileDir(Path: string; FileList: TStrings);
 var
   SR: TSearchRec;
 begin
   if FindFirst(Path+'*.*', faAnyFile, SR) = 0 then
   begin
     repeat
      if (SR.Name<>'.') and (SR.Name<>'..') then   FileList.Add(SR.Name);
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;
 end;

[wm_leviathan]

вот функция которая узнает размер файла

function SizeFile(fName: string): int64;
{
var
Target: File of byte;
fSize: Cardinal;
begin

AssignFile(Target,fName);
Reset(Target);
fSize := FileSize(Target);
CloseFile(Target);
}

var
  ff: _win32_find_dataa;
  hFind: hwnd;
begin
  hFind := FindFirstfile(pchar(FName), ff);
  if (INVALID_HANDLE_VALUE <> hFind) then
  result := ff.nFileSizeLow;


end;

копирование 1го файла

if CopyFile('c:\1.txt','c:\2.txt',true) then
ShowMessage('Файл успешно скопирован!')

удаление 1го файла

if DeleteFile('c:\2.txt') then
ShowMessage('Файл успешно удален!')

а alex_fcsm как раз показал процедуру поиска файлов в заданной папке

ну пути я думаю сами пропишете

[misher]

Спасибо, думаю разберусь.