Главная страница
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.062 c
1-1097223451
Аня
2004-10-08 12:17
2004.10.24
Архивация


14-1097115144
TeNY
2004-10-07 06:12
2004.10.24
XPManifest<->XPColorMap?


1-1097497654
Jolik
2004-10-11 16:27
2004.10.24
Exception в конструкторе...


14-1096438464
Ozone
2004-09-29 10:14
2004.10.24
Хм... новый вид развода на деньги


1-1097307670
Kolan
2004-10-09 11:41
2004.10.24
Перенос series