Консультация № 132482
16.04.2008, 19:30
0.00 руб.
0 1 1
Здравствуйте, уважаемые эксперты!
У меня к Вам следующий вопрос: На форме четыре DirectoryEdit (два откуда копировать и два куда копировать), ProgressBar и Button. По нажатию кнопки необходимо копировать каталоги, но не полностью, файлы необходимо выбирать по маске. Результат копирования отраджать в ProgressBar. Буду рад любым предложениям и исходникам. Заранее благодарен.

Обсуждение

Неизвестный
17.04.2008, 09:56
общий
это ответ
Здравствуйте, Копылов Виктор Иванович!
DirectoryEdit? а может все-таки TDirectoryOutline
и зачем 4 штуки - мне кажется двух вполне достаточно: один показывает откуда будем копировать, другой - куда...
для двух TDirectoryOutline смотрите пример в приложении
копируем из директории указанной в DirectoryOutline1
в директорию указанную в DirectoryOutline2
маску задаем в Edit1

примеры по копиррованию файлой можете посмотреть здесь:
http://delphiworld.narod.ru/base/copy_files.html
http://delphiworld.narod.ru/base/copy_dir_with_files.html
http://delphiworld.narod.ru/base/copy_dirs.html

Приложение:
procedure TForm1.Button1Click(Sender: TObject);var sr:TSearchRec; i:integer; from_path,to_path,file_mask:string;begin from_path:=IncludeTrailingPathDelimiter(DirectoryOutline1.Directory); to_path:=IncludeTrailingPathDelimiter(DirectoryOutline2.Directory); file_mask:=Edit1.Text; if file_mask=‘‘ then file_mask:=‘*.*‘; i:=FindFirst(from_path+file_mask,faAnyFile,sr); try while i=0 do begin CopyFile(PAnsiChar(from_path+sr.Name),PAnsiChar(to_path+sr.Name),false); i:=FindNext(sr); end; finally FindClose(sr); end;end;
Форма ответа