кипирование папок!!

[Dryg2009]

Всем привет!! есть папка id1 в ней лежат файлы с раширение .ans (обновление программы консультанта +) но имена всех файлов разные и меняются каждую неделю!! !! мне нужно их все скопировать в папку
C:\receive где-то 100 метров! в инете нашел копирование папок и директорий но функция не работает! выдает куча ошибок!!

помогите найти функцию копирование папки или всех файлов из папки!!

[FaTaL]

Так если только файлы надо копировать, то и копируй только файлы, а не папки.
FindFirst, FindNext Вам в помощь.

[Dryg2009]

Сообщение от FaTaL

Так если только файлы надо копировать, то и копируй только файлы, а не папки.
FindFirst, FindNext Вам в помощь.

а попадробнее!!

[Пепел Феникса]

поиск поиск и еще раз поиск, примеров масса.

[Dryg2009]

привет еще раз !! google как всегда рулит!! по примерам написал вот это

var
  searchRes : TSearchRec;
  i, r: string;
begin
r:='C:\Receive\';
i:=ExtractFilePath(Application.ExeName)+'\'+'id1\';
SetCurrentDir(i);
  if FindFirst('*.ans', faAnyFile, searchRes) = 0 then
  begin
    repeat
      CopyFile(pchar(i+searchRes.Name), pchar(r+searchRes.Name), true);
    until FindNext(searchRes) <> 0;
    FindClose(searchRes);
  end;

Код ужасен я и сам знаю!!

вот как мне туда ProgressBar1 вставить?

[Gorychev]

Самый простой способ использовать консольную команду винды xcopy.
Копирует все что есть в папке. Пример:

var   FromDir, ToDir: string;
begin
  FromDir:= Edit1.Text;  ToDir := edit2.Text;
  winexec(PChar('cmd /c xcopy /I /E /H /Q /Y ' + FromDir + ' ' + ToDir),SW_Hide);
end;

Я уже не помню что за ключи применяются в данном примере, почитайте сами, в консоли набирите "xcopy/?" . Помню, что все происходит в скрытом режиме.

[Dryg2009]

Сообщение от Gorychev

Самый простой способ использовать консольную команду винды xcopy.
Копирует все что есть в папке. Пример:

var   FromDir, ToDir: string;
begin
  FromDir:= Edit1.Text;  ToDir := edit2.Text;
  winexec(PChar('cmd /c xcopy /I /E /H /Q /Y ' + FromDir + ' ' + ToDir),SW_Hide);
end;

Я уже не помню что за ключи применяются в данном примере, почитайте сами, в консоли набирите "xcopy/?" . Помню, что все происходит в скрытом режиме.

ты не понял! мне нажуно сделать свой ProgressBar

[W0LF]

Посмотрите исходник тут, вам он может помочь
http://www.delphisources.ru/pages/so...ogressbar.html

[Gorychev]

Ну нажуно, так нажуно... Делайте кипирование папок, да еще и с прогресс баром.