поиск подкаталогов

← →
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;
спасибо

поиск подкаталогов Найти похожие ветки