Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
03.11.2006, 15:27
|
|||
|---|---|---|---|
Папки |
|||
|
#18+
Подскажите пожалуйста куда рулить. Надо получить имена подпапок в заданной папке. Листаю Эпплмана, не могу врубиться, там всё про файлы. С FSO тоже непонятки. Help please. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
03.11.2006, 15:59
|
|||
|---|---|---|---|
Папки |
|||
|
#18+
Option Explicit Private mobjFSO As New FileSystemObject Private Sub Command1_Click() Dim strFolder As String Dim objFolder As Folder strFolder = Text1.Text Set objFolder = mobjFSO.GetFolder(strFolder) ShowSubFolders objFolder End Sub Sub ShowSubFolders(ByRef ioobjStartFolder As Folder) Dim objFolder As Folder Dim Subfolder As Folder For Each Subfolder In ioobjStartFolder.SubFolders Set objFolder = mobjFSO.GetFolder(Subfolder.Path) MsgBox objFolder.Path ShowSubFolders Subfolder Next End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
03.11.2006, 16:30
|
|||
|---|---|---|---|
Папки |
|||
|
#18+
Круть. Спасибо, но будет, по ходу, ещё много вопросов. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
03.11.2006, 16:45
|
|||
|---|---|---|---|
Папки |
|||
|
#18+
Можно и функцией Dir воспользоваться (см. документацию), тогда и объект FSO подключать не понадобится... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
04.11.2006, 11:01
|
|||
|---|---|---|---|
Папки |
|||
|
#18+
В DIR использовать сетевые имена дисков нельзя ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
04.11.2006, 12:00
|
|||
|---|---|---|---|
|
|||
Папки |
|||
|
#18+
timtimВ DIR использовать сетевые имена дисков нельзя Уточните пожалуйста, что именно нельзя? так работает dir("\\192.168.0.1\c$\tmp\*.*") так тоже dir("z:\tmp\*.*") ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
05.11.2006, 03:16
|
|||
|---|---|---|---|
Папки |
|||
|
#18+
Можно то можно, но с каких это пор объектное программирование стало хуже традиционного? Кстати, а что, кто-то надорвется, если подключить Scripting? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&mobile=1&tid=2165027]: |
0ms |
get settings: |
8ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
177ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
48ms |
get tp. blocked users: |
1ms |
| others: | 236ms |
| total: | 510ms |
| 0 / 0 |
