|
AlleXXX
|
|
| 1 | |
Как получить имена всех папок в определенной директории?22.01.2008, 19:51. Показов 1302. Ответов 1
Метки нет (Все метки)
|
|
(| 22.01.2008, 19:51 | |
|
Ответы с готовыми решениями:
1
DAO. Как получить имена всех существующих таблиц в определённой базе данных?
Как получить в скрипт имена всех файлов из некоторой директории на сервере? Вывод в связный список всех файлов/папок в определенной директории |
|
Anri
|
|
| 22.01.2008, 20:12 | 2 |
|
1. Добавь Microsoft Scripting
2. Вот фушкция: Код
Private Sub Form_Load()
Dim ar As Variant
ar = GetFoldersList('c: ')
End Sub
Private Function GetFoldersList(sFld As String) As Variant
Dim oFso As New Scripting.FileSystemObject
Dim oFld As Folder
Dim oSFld As Folder
Dim sFlds As String
Set oFld = oFso.GetFolder(sFld)
For Each oSFld In oFld.SubFolders
sFlds = sFlds & oSFld.Name & ';'
Next
GetFoldersList = Split(sFlds, ';')
End Function
|
|
| 22.01.2008, 20:12 | |
| 22.01.2008, 20:12 | |
|
Помогаю со студенческими работами здесь
2
Как рекурисивно пройтись по каталогам и получить имена всех папок Как получить имена всех FOREIGN KEY для определенной таблицы? Создание файла со списком имён всех папок в определенной директории, включая вложенные Получить имена всех папок в каталоге Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
