Форум: "Начинающим";
Текущий архив: 2007.10.07;
Скачать: [xml.tar.bz2];
Внизпоиск подкаталогов Найти похожие ветки
← →
tomkat (2007-09-11 10:44) [0]День добрый! Помогите со сл. задачей:
есть набор файлов
их нужно скопировать в каталоги , первые 3 символа имени к-х = первым 3 символам имен файлов , если каталогов нет - создать
что -то типа
001namef.dbf > 001named
002namef.ovr >002named
где namef,named- произвольные имена
что то никак не могу FindFirst (Next) прикрутить ...
заранее спасибо
← →
balepa © (2007-09-11 11:06) [1]s:= "001"
if not DirectoryExists(s+"named") then mkdir(s+"named")
???
← →
tomkat (2007-09-11 12:41) [2]да нет, не все так просто , получилось что-то типа
if (FindFirst(pIN+"\"+masks.Strings[i],faAnyFile,FindF) = 0)
then repeat
begin
Log("Ïîëó÷åí ôàéë -"+FindF.Name);
fn:=findF.Name;
fi:=copy(FindF.Name,1,3);
if (FindFirst(pARC+"\"+fi+"*",faDirectory,FindD) = 0)
then repeat
begin
if DirectoryExists(fi)=false
then mkDir(fi);
fd:=FindD.Name;
mf1:=pChar(pIN+"\"+fn);
mf2:=pChar(pARC+"\"+fd+"\"+fn);
MoveFile(mf1,mf2);
showMessage(mf1+">"+mf2);
end;
until FindNext(FindD) <> 0;
FindClose(FindD);
end;
until FindNext(FindF) <> 0;
FindClose(FindF);
end;
спасибо
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.10.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.061 c