Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Сколько файлов в папке? [D6, Win95/98]

Dr. Genius © (2004-10-08 09:22:00)
Вопрос 1.
Допустим, есть папка Reports, находящаяся в одном каталоге с *.exe-файлом программы. Как узнать, сколько файлов в папке Reports?
Вопрос 2.
Как переместить файл, находящийся в одном каталоге с *.exe-файлом программы в папку Reports?

Valwhite (2004-10-08 12:48:00) [1]
Взято из 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

Reindeer Moss Eater (2004-10-08 09:39:00) [2]
Код примера написан в хелпе.

Dr. Genius (2004-10-08 09:38:00) [3]
Я что-то слышал про FindFirst, FindNext, но как ими пользоваться? Если не трудно, напишите код.

piople (2004-10-08 09:25:00) [4]
FindFirst, findNext?!

Reindeer Moss Eater (2004-10-08 09:24:00) [5]
1. Сосчитать их
2. MoveFile

Наверх

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