Последние записи
- Редактировать содержимое ListBox в Microsoft Office Excel
- Отчистить содержимое через макрос (Microsoft Office Excel)
- Чередующиеся строки столбца перевести в столбцы (Microsoft Office Excel)
- Выбор ЯП для приложений промышленной автоматизации (Delphi, Pascal, Scada)
- Как программно увеличить толщину линий в графике на форме в Microsoft Office Access?
- Рандомное слово в документе Word
- Чем отличается MBR (с физического диска), BootSector (с логического диска)
- Проверка установки офиса
- <fstream> <iomanip> <ios> <iostream>. Краткое описание ввода/вывода
- Русский текст в консоли
2nd
Ноя
Копирование найденных файлов
Posted by micher under Delphi, Архив
Как скопировать все найденные файлы?
leonw
procedure GetAllFiles(mask: string);
var
search: TSearchRec;
directory: string;
begin
directory := ExtractFilePath(mask);
if FindFirst(mask, $23, search) = 0 then
begin
repeat
Form1.ListBox1.Items.Add(directory + search.Name);
files:='c:\1\'+search.Name;
CopyFile(PChar(directory + search.Name),PChar(files),true);
Inc(Count);
until FindNext(search) 0;
end;
if FindFirst(directory + '*.*', faDirectory, search) = 0 then
begin
repeat
if ((search.Attr and faDirectory) = faDirectory) and (search.Name[1] '.') then
GetAllFiles(directory + search.Name + '\' + ExtractFileName(mask));
until FindNext(search) 0;
FindClose(search);
end;
end;
тема на форуме от 2010 года
Похожие статьи
