чтение и копирование файлов с USB флешки

[witia03]

подскажите как в delphi получить список файлов папок с флешки и скопировать файл на жесткий диск (как в тотал коммандере)

[3D Hunter]

Для поиска содержимого используйте связку функций FindFirst, FindNext и FindClose. Производить поиск нужно в цикле рекурсивно, начиная с корня и до конечной глубины вложенности папок.

[witia03]

Сообщение от 3D Hunter

Для поиска содержимого используйте связку функций FindFirst, FindNext и FindClose. Производить поиск нужно в цикле рекурсивно, начиная с корня и до конечной глубины вложенности папок.

спасибо это работает. нашел код-

procedure TForm1.Button1Click(Sender: TObject);
var
 F:TSearchRec;
begin
if FindFirst('C:\*', faDirectory, F)=0 then
begin
 Memo1.Lines.Add(F.Name);
while FindNext(F) = 0 do Memo1.Lines.Add( F.Name);
end;
 FindClose(F);
end;

а как скопировать файл на диск?

[3D Hunter]

Функция CopyFile.