Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.24;
Скачать: CL | DM;

Вниз

Сколько файлов в папке?   Найти похожие ветки 

 
Dr. Genius   (2004-10-08 09:22) [0]

Вопрос 1.
Допустим, есть папка Reports, находящаяся в одном каталоге с *.exe-файлом программы. Как узнать, сколько файлов в папке Reports?
Вопрос 2.
Как переместить файл, находящийся в одном каталоге с *.exe-файлом программы в папку Reports?


 
Reindeer Moss Eater ©   (2004-10-08 09:24) [1]

1. Сосчитать их
2. MoveFile


 
piople ©   (2004-10-08 09:25) [2]

FindFirst, findNext?!


 
Dr. Genius   (2004-10-08 09:38) [3]

Я что-то слышал про FindFirst, FindNext, но как ими пользоваться? Если не трудно, напишите код.


 
Reindeer Moss Eater ©   (2004-10-08 09:39) [4]

Код примера написан в хелпе.


 
Valwhite   (2004-10-08 12:48) [5]

Взято из http://delphiworld.narod.ru/
Пример иллюстрирующий поиск всех файлов и каталогов в определенном каталоге:

var
 SearchRec: TSearchRec;
...

if FindFirst("c:\Windows\*.*", faAnyFile, SearchRec) = 0 then
repeat
 { Вот здесь мы можем делать с найденным файлом что угодно
   SearchRec.name - имя файла
   ExpandFileName(SearchRec.name) - имя файла с полным путем
  Можно наращивать счетчик файлов e.t.c.
  }
until
 FindNext(SearchRec) <> 0;

FindClose(SearchRec);

Там же, возможно тоже поможет:
http://delphiworld.narod.ru/base/change_all_exe_files_in_win_dir.html



Страницы: 1 вся ветка

Текущий архив: 2004.10.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.049 c
4-1095675542
ArhDD
2004-09-20 14:19
2004.10.24
Record HWND


14-1096955381
asafr
2004-10-05 09:49
2004.10.24
Разговор по телефону


1-1097092018
Phantom_007
2004-10-06 23:46
2004.10.24
String в PChar


3-1096090773
SergeyM
2004-09-25 09:39
2004.10.24
Поиск с фильтром в компонентах ADO


1-1097308276
Wish
2004-10-09 11:51
2004.10.24
Как сделать чтобы контролы не моргали