Консультация № 56123
20.09.2006, 20:57
0.00 руб.
0 2 2
Уважаемые,эксперты.
Помогите решить проблему.Есть дерево папок:папка "А0",в ней 20 подпапок "Б0"-"Б19",в каждой по 30 подпапок "В0"-"В29", а в каждой по 28 подпапок "Д0"-"Д27" с файлами типа *.uni.Можно ли средствами Delphi (или WinAPI из Delphi) скопировать все файлы типа *.uni из подпапок "Д0"-"Д27" в одну папку на др.диске?Причем,имена папок написаны какие латиницей,а какие кириллицей,что исключает применение DOS-функций типа XCOPY или COPY.Спасибо.

Обсуждение

Неизвестный
20.09.2006, 22:56
общий
это ответ
Здравствуйте, Alexela!

for i := 0 to 20 do
for j := 0 to 30 do
for k := 0 to 28 do begin
SrcDir := Format(‘A0\Б%d\В%d\Д%d‘, [i,j,k]);
Далее в цикле определяем имена файлов, пользуясь функциями API, FindFirstFile,
FindNextFile, FindClose, и для каждого найденного файла используем функцию
API CopyFile
end;
Неизвестный
21.09.2006, 06:45
общий
это ответ
Здравствуйте, Alexela!
Используйте SHFileOperation. Примеры использования можете посмотреть здесь:

http://www.megalib.com/books/478/544.htm

Еще можете воспользоваться компонентами JEDI, в частности JvSHFileOperation.
Форма ответа