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;