| Вопрос: содержание подкотологов | Добавлено: 12.12.07 09:47 |
Автор вопроса:  Andrey
|
| допустим есть папка C:\user\ нужно сохранить название всех папок вложеных в папку user.Сохранить ну например в текстовой файл. |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:   POST Вопросов: 14 Ответов: 269 |
Web-сайт: Профиль | | #1 | Добавлено: 12.12.07 10:57 |
|
http://freevbcode.com/ShowCode.Asp?ID=993
PS: теперь я знаю слово с 5 буквами "о"  ))
|
||
|
Номер ответа: 2 Автор ответа: Andrey Вопросов: 2 Ответов: 4 |
Профиль | | #2 | Добавлено: 12.12.07 10:59 |
| еще и не такое узнаешь | ||
|
Номер ответа: 3 Автор ответа:   Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #3 | Добавлено: 12.12.07 11:05 |
|
Не забудь подключить библиотеку Microsoft Scripting Runtime.
Private Sub Form_Load()
' первый параметр - путь к корневой папке ' второй параметр - имя файла, куда будешь писать имена субдиректорий GetSubFolders "z:\", "c:\asdftest.txt" End Sub Sub GetSubFolders(ByVal Root As String, ByVal FileName As String) On Error Resume Next Dim mFolders, mFolder, mSubFolders, ff Dim fso As FileSystemObject Set fso = New Scripting.FileSystemObject Set mFolders = fso.GetFolder(Root) Set mSubFolders = mFolders.SubFolders ff = FreeFile For Each mFolder In mSubFolders Open FileName For Append As #ff Print #ff, mFolder.Path Close ff 'если хочешь рекурсивно получать список ВСЕХ вложенных папок, 'то раскомментируй следующую строку 'GetSubFolders mFolder.Path, FileName Next End Sub |
||
|
Номер ответа: 4 Автор ответа: AndreyВопросов: 2 Ответов: 4 |
Профиль | | #4 | Добавлено: 12.12.07 11:56 |
| я не нашел Microsoft Scripting Runtimе, либо не там ищу либо у меня такого вообще нету...Executioner пни в ту сторону где искатТЬ. | ||
|
Номер ответа: 5 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #5 | Добавлено: 12.12.07 12:43 |
| В меню Project->References | ||
|
Номер ответа: 6 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #6 | Добавлено: 12.12.07 13:18 |
|
Private Sub Form_Load()
' первый параметр - путь к корневой папке ' второй параметр - имя файла, куда будешь писать имена субдиректорий GetSubFolders "z:\", "c:\asdftest.txt" End Sub Sub GetSubFolders(ByVal Root As String, ByVal FileName As String) On Error Resume Next Dim mFolders, mFolder, mSubFolders, ff Dim fso' As FileSystemObject 'Set fso = New Scripting.FileSystemObject set fso = CreateObject("scripting.filesystemobject" 
Set mFolders = fso.GetFolder(Root) Set mSubFolders = mFolders.SubFolders ff = FreeFile For Each mFolder In mSubFolders Open FileName For Append As #ff Print #ff, mFolder.Path Close ff 'если хочешь рекурсивно получать список ВСЕХ вложенных папок, 'то раскомментируй следующую строку 'GetSubFolders mFolder.Path, FileName Next On Error GoTo 0 End Sub |
||
|
Номер ответа: 7 Автор ответа: AndreyВопросов: 2 Ответов: 4 |
Профиль | | #7 | Добавлено: 12.12.07 14:58 |
| Executioner спс..помогло. | ||
Страница: 1 |