Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c