|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
20.11.2012, 18:02 | #1 |
Участник клуба
Регистрация: 12.09.2012
Сообщений: 1,030
|
Папки и файлы в директории
Привет. Хотел бы любезно узнать такое:
Есть полный путь к папке(он записан в переменую). Эта папка содержит файлы и другие папки. Мне нужно узнать сколько сначало папок в деректории, следом сколько ВСЕГО(!) файлов во всей деректории. И из каждого файла извлечь файловый путь. ShellAPI подключен. В книге про делпфи(библия делпфи) есть что-то похожее, но я нечего в ней не пойму. Как сделать всё выше написаное(до таких слов: "ShellAPI подключен")?
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби. |
20.11.2012, 18:05 | #2 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
Поиск файлов и папок осуществляется через FindFirst, FindNext, FindClose
|
20.11.2012, 18:07 | #3 |
Участник клуба
Регистрация: 12.09.2012
Сообщений: 1,030
|
я тоже знаю, но как прописать чтобы можно было узнать сколько папок?
А ваще что-то похожее было в книге. Вот получил количество файлов во всей деректории: Код:
Код:
Вот получил, но нечего не происходит в итоге, помогите исправить: Код:
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби. Последний раз редактировалось Stilet; 20.11.2012 в 19:04. |
20.11.2012, 18:46 | #4 | |
Новичок
Джуниор
Регистрация: 26.03.2007
Сообщений: 2
|
Цитата:
Вызываем процедуру из основной программы: ScanDirFilesW('c:\NVIDIA',x1,x2); x1 - количество папок. x2 - количество файлов. Процедура сканирует все вложенные папки тоже. Игнорирует "." и "..".
Любитель целебного (40%) напитка...
Последний раз редактировалось Plastik; 20.11.2012 в 18:48. |
|
20.11.2012, 18:51 | #5 |
Участник клуба
Регистрация: 12.09.2012
Сообщений: 1,030
|
ну мне нужно просто это:
-Кол-во папок. -Имена папок(желательно). -Полный файловый путь к файлам в папках.
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби. |
20.11.2012, 18:53 | #6 |
Новичок
Джуниор
Регистрация: 26.03.2007
Сообщений: 2
|
writeln(xPath);
В Этой переменной xPath полный путь и хранится. Если не нужно сканирование дерева, убери рекурсию "вызов FirstDir1(xPath);". Просто имена хранятся в переменной xData.cFileName. Разумеется всё это работает только внутри цикла repeat-until.
Любитель целебного (40%) напитка...
Последний раз редактировалось Plastik; 20.11.2012 в 18:57. |
20.11.2012, 18:56 | #7 |
Участник клуба
Регистрация: 12.09.2012
Сообщений: 1,030
|
это кому говоришь?
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби. |
20.11.2012, 19:09 | #8 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Это пояснения как поправить под твою задачу. То что ты привел - функция. Ее нужно вызывать где-то. К примеру по клику кнопки. Только она какая-то замученная... Я бы по другому делал.
I'm learning to live...
|
|
20.11.2012, 21:13 | #9 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
Самому сейчас не охото под вас подстраивать, спать пора. Вот нашёл в одном из своих проектов копирование папки с подпапками и всеми файлами, переделайте просто под себя
Код:
|
20.11.2012, 21:47 | #10 | |
Участник клуба
Регистрация: 12.09.2012
Сообщений: 1,030
|
Цитата:
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби. |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Файлы и папки | X@OC | Общие вопросы Delphi | 2 | 13.09.2011 21:18 |
Поиск папки по имени в директории | artemavd | Общие вопросы Delphi | 4 | 06.08.2010 08:18 |
Прога не очет искать директории. А вот файлы нрмально ищет. | TwiX | Общие вопросы C/C++ | 3 | 18.03.2010 04:17 |
Как узнать все папки в указаной директории? | blackstersl | Общие вопросы Delphi | 4 | 17.06.2009 13:23 |
Выбрать имя папки из директории | Македонский | Общие вопросы Delphi | 15 | 29.08.2007 10:48 |