Получить список каталогов

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Получить список каталогов (Макросы Sub)

Alex

Дата: Пятница, 21.02.2014, 16:27 | Сообщение № 1

Группа: Гости

Подскажите пожалуйста функцию получения списка каталогов.
Примерно что-то вот в тако роде:

[vba]

Код

Sub GetFolders (aDir as String)
....
ListBox.AddItem ()
......
end Sub

[/vba]
вызов
[vba]

Код

GetFolders(ThisWorkBook.Path)

[/vba]

Ответить

Alex

Дата: Пятница, 21.02.2014, 16:44 | Сообщение № 2

Группа: Гости

Ой, еще один момент.
В список каталогов должны попадать только те каталоги которые, которые отвечают небольшому условию: Имя каталога - год из 4 знаков (Пример: "2014", "1998", "2020", "2007", и т.д.)
Спасибо.

Ответить

Stormy

Дата: Пятница, 21.02.2014, 16:56 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 366

Репутация: 12 ±

Замечаний: 0% ±

Excel 2010

Alex,
Тут посмотрите http://www.excelworld.ru/forum/3-1894-1#21255

Место для рекламы.

Ответить

Alex

Дата: Понедельник, 24.02.2014, 10:26 | Сообщение № 4

Группа: Гости

Ок. Спасибо. Список папок(каталогов) я получил. Подскажите решение с определением соответствия имени каталога по условию.
Т.е. есть список имен и например очередное имя FolderName Вот как мне его грамотнее и быстрее проверить на соответствие?

if Len(FolderName) = 4 then 'а дальше как то так: тут проверить что в имени одни цифры и они "корректный год" (ну типа между 1950 и 2050 - так устроит)