Страница: 1 |
Подключай microsoft scripting runtime (scrrun.dll) и делай так: Dim fso As New FileSystemObject, fld As Folder, fl1 Павел, даже если указать в функции Dir аттрибут vbDirectory , всё-равно масив будет с ярлыками (*.lnk) уже проверял., а вот код, который дал sKit , работает. И ещё, неохота писать новую тему, но после того, как сделали ForumByEmail, ко мне перестали приходить ответы на вопросы.(Информация к размышлению) Страница: 1 |
Вопрос: папочки
Добавлено: 15.09.03 22:32
Автор вопроса: ZoomerSD | ICQ: 148640473
подскажите пожалуйста, как мне программно получить имена всех подпапок в паке, и чтобы туда не лезли ярлыки, с функцией DIR это не получаеться. Ктонить помогите.
Ответы
Всего ответов: 5
Номер ответа: 1
Автор ответа:
Павел
Администратор
ICQ: 326066673
Вопросов: 368
Ответов: 5968
Web-сайт:
Профиль | | #1
Добавлено: 16.09.03 09:04
С функцией dir всё нормально получается. Только там надо флаг
поставить vbDirectory.
А вообще синтаксис функции Dir мне совсем не нравится... Вот в .NET
намного красивее получается - путём вызова
IO.DirectoryInfo.GetDirectories получаем массив с именами подпапок.
Номер ответа: 2
Автор ответа:
crackoff
ICQ: 156165990
Вопросов: 12
Ответов: 229
Профиль | | #2
Добавлено: 16.09.03 13:17
Set fld = fso.GetFolder("c:\windows")
For Each fl1 In fld.SubFolders
MsgBox fl1.Path
Next
Номер ответа: 3
Автор ответа:
ZoomerSD
ICQ: 148640473
Вопросов: 135
Ответов: 270
Профиль | | #3
Добавлено: 16.09.03 21:49
Номер ответа: 4
Автор ответа:
Павел
Администратор
ICQ: 326066673
Вопросов: 368
Ответов: 5968
Web-сайт:
Профиль | | #4
Добавлено: 17.09.03 10:49
> И ещё, неохота писать новую тему, но после того, как сделали ForumByEmail
Такого быть не должно... Мне, например, сейчас присылаются и ответы и
сообщения из ForumByEmail. Проверь настройки в профиле.
Номер ответа: 5
Автор ответа:
ZoomerSD
ICQ: 148640473
Вопросов: 135
Ответов: 270
Профиль | | #5
Добавлено: 17.09.03 17:00
в профиле, всё стоит, так-что тут дело не во мне а в сервере