Форум: "Основная";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.033 c