| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ищу процедуру копирования директории [D7]
Маленький мук © (2006-01-26 12:31:00)Может у кого то написана такая вещь? Скопировать все файлы директории в другую? В стандартных функция этого не нашёл..
Amoeba (2006-01-26 13:59:00) [1]Статью как использовать SHFileOperation найдешь здесь:
http://www.delphikingdom.com/asp/viewitem.asp?UrlItem=/mastering/fileshellapi.htm
Маленький мук (2006-01-26 13:29:00) [2]А вот если через SHFileOperation делать - то можно кусочек кода. Там структуру надо объявить, и заполнить... Пример малюхонький :)
СержК (2006-01-26 12:58:00) [3]Пользуйся, самому на днях подсказали.
RemoteDir - директория из которой нужно скопировать все файлы
procedure TFormMain.File_in_RemoteDirectory(RemoteDir: string);
var f: TSearchRec;
begin
FindFirst(RemoteDir+'*.*', faAnyFile, f);
while FindNext(f)=0 do
begin
if (f.Name<>'.') and (f.Name<>'..') then
begin
//RemoteDir+f.Name - поочередно каждый файл в директории копируй
//куда хочеш
end;
end;
FindClose(f);
end;
DesWind (2006-01-26 12:36:00) [4]FindFirst;FindNext;CopyFile
begin...end (2006-01-26 12:33:00) [5]SHFileOperation (модуль ShellAPI).
| |
