VBNet - Форум - Список файлов в дирректории

Вопрос: Список файлов в дирректории Добавлено: 28.05.03 21:25

Автор вопроса: Леонтий | ICQ: 172720720

Как узнать список папок в дирректории? Список файлов можно получить примерно таким способом:
Function ShowFolderList(path)
Set fileObject = CreateObject("Scripting.FileSystemObject")
Set allFiles = fileObject.GetFolder(path)
Set fc = allFiles.Files
For Each f In fc
Debug.Print "Имя " & f.Name
Debug.Print "Размер " & f.Size
Debug.Print "Создан " & f.DateCreated
Debug.Print "Изменен " & f.DateLastModified
Next
End Function
Но как узнать еще и список папок в директории?

Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

Emigrant

Вопросов: 7
Ответов: 22

Профиль | | #1

Добавлено: 28.05.03 23:33

А не проще ли взять элемент ExplorerTree и смотреть себе.

Может тебе подойдет CommonDialog?

Ответить

Номер ответа: 2
Автор ответа:

Дeнис

Вопросов: 14
Ответов: 42

Профиль | | #2

Добавлено: 29.05.03 00:56

А без ФСО слабо чтоли? стандартными функциями ВБ?

например так:

генерит массив файлов или папок

Private Sub Form_Load()
    NumberFile = 0
    ReDim TestFiles(0)
    Dim NextFile As String
    Screen.MousePointer = 11
    ReDim TestFiles(1)
    NextFile = Dir$(App.Path & "\TBase\*.tsd") - здесь указывается путь к искомому файлу или папкам)))
    While NextFile <> ""
        NumberFile = NumberFile + 1
        ReDim Preserve TestFiles(NumberFile)
        TestFiles(NumberFile) = NextFile
        NextFile = Dir$
    Wend
    ViewInfo
    Screen.MousePointer = 0
End Sub

Ответить

Номер ответа: 3 Автор ответа: Леонтий ICQ: 172720720 Вопросов: 3 Ответов: 4	Профиль \| \| #3	Добавлено: 29.05.03 17:37
	Большое спасибо! Ответить

Страница: 1 |