|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.11.2008, 16:24 | #1 |
Пользователь
Регистрация: 18.11.2008
Сообщений: 11
|
Считывание имён файлов
Всем здравствуйте!
Пожалуйста помогите! Нужно написать макрос, который бы считывал названия файлов и папок с диска. Т.е. вставляешь диск в привод, запускаешь макрос и он тебе в Excell выдаёт список файлов и папок в столбец, содержащихся на диске, причем названия файлов уже в самих папках считывать не обязательно! Только в корневом каталоге. Ещё, если можно рядом в два столбика узнавать формат файлов и размер папок и самих файлов. Жду Вашей помощи! Заранее СПАСИБО!!! |
18.11.2008, 17:30 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Запустите макрос CreateDirectoryListing
Вместо диска С в строке Set f = fso.GetFolder("c:\") поставьте букву нужного Вам диска. (добавлено) Код:
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 18.04.2011 в 08:33. |
18.11.2008, 18:45 | #3 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
|
22.11.2008, 23:43 | #4 |
Пользователь
Регистрация: 18.11.2008
Сообщений: 11
|
Ребята, СПАСИБО ОГРОМНОЕ! Честно, не ожидал с первого раза получить полный и достаточно чёткий ответ, но... Всё СУПЕР! Даже менять под себя ничего не надо! СПАСИБО!!!
|
01.12.2008, 20:23 | #5 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
EducatedFool!
А как сделать(никогда не думал, что с формами столкнусь, инфы практически, ноль), что бы при открытии книги, выдался запрос: "Введите путь к папке", там ввожу к примеру: C:\Windows\winsxs и запускается макрос CreateDirectoryListing ? |
01.12.2008, 21:00 | #6 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
|
|
01.12.2008, 21:52 | #7 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Последний раз редактировалось valerij; 01.12.2008 в 22:13. |
28.03.2009, 00:31 | #8 | |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Цитата:
Может не в этом коде? Последний раз редактировалось valerij; 28.03.2009 в 00:44. |
|
28.03.2009, 01:14 | #9 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Валера, ну неужели сложно подсчитать сумму чисел?
Добавить-то надо было всего пару строк: Код:
Цитата:
Я проверяю код, прежде чем его выкладывать... Вставь этот код в чистый файл, и проверь.
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 28.03.2009 в 01:26. |
|
28.03.2009, 01:21 | #10 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна помощь: выбор файлов исходя из имени файлов | Antik163RUS | Помощь студентам | 4 | 19.06.2008 21:20 |
Создание и считывание .ini файлов | Патрон | Общие вопросы Delphi | 4 | 21.04.2008 03:25 |
Печать pdf файлов из списка файлов в Excel | АПС | Microsoft Office Excel | 5 | 15.04.2008 16:04 |
Считывание пароля | Terran | Общие вопросы Delphi | 1 | 22.03.2008 20:09 |
Считывание из файла | DimkinStd | Общие вопросы Delphi | 7 | 24.01.2007 19:18 |