Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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
15-1189166684
Kerk
2007-09-07 16:04
2007.10.07
Какнить можно в винде кэш DNS сбросить?


6-1170483971
lightix
2007-02-03 09:26
2007.10.07
TidTelnet (Indy9) вешает программу


2-1189436199
leonidus
2007-09-10 18:56
2007.10.07
Определение высоты текста в RichEdit


2-1189453972
aids
2007-09-10 23:52
2007.10.07
TSitringList


15-1189070850
sniknik
2007-09-06 13:27
2007.10.07
Нужны компоненты в виде датчиков на приборной доске





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский