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;