| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

поиск подкаталогов [D6, WinXP]

tomkat ©   (2007-09-11 10:44:00) 

День добрый! Помогите со сл. задачей:
есть набор файлов
их нужно скопировать в каталоги , первые 3 символа имени к-х = первым 3 символам имен файлов , если каталогов нет - создать
что -то типа
001namef.dbf > 001named
002namef.ovr >002named
где namef,named- произвольные имена
что то никак не могу FindFirst (Next) прикрутить ...
заранее спасибо

---

tomkat   (2007-09-11 12:41:00) [1]

да нет, не все так просто , получилось что-то  типа

  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;

спасибо

---

balepa   (2007-09-11 11:06:00) [2]

s:= '001'
if not DirectoryExists(s+'named') then mkdir(s+'named')
???

---

Наверх