Главная страница
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
1-1097330321
CoolMan
2004-10-09 17:58
2004.10.24
Скрытый поиск по маске с копированием


1-1097478037
Flying-home
2004-10-11 11:00
2004.10.24
Перехват события изменения размера колонки в ListView


14-1096736432
ArMellon
2004-10-02 21:00
2004.10.24
Заканчиваю работу над прогой и хотелось бы


6-1092436581
Jetus
2004-08-14 02:36
2004.10.24
Проверить, есть ли соединение с Интернет в данный момент


14-1096573366
_silver
2004-09-30 23:42
2004.10.24
Методы оптимизации.