Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Visual Basic
Перезагрузить страницу Как получить список файлов в папке и подпапках?
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
konstpon konstpon вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 19.05.2021
По умолчанию Как получить список файлов в папке и подпапках? - 19.05.2021, 21:12

Есть готовый и работающий код:
Module1
vb Код:
Public Function GetDuration(sHref$) As Single
    Dim oFile As Object
    On Error Resume Next
    Set oFile = GetDesktop.parsename(sHref)
    GetDuration = TimeValue(oFile.Parent.getdetailsof(oFile, 27))
    Set oFile = Nothing
End Function
Private Function GetDesktop()
    Static Desktop As Object
    If Desktop Is Nothing Then
        Set Desktop = CreateObject("shell.application").Namespace(0)
    End If
    Set GetDesktop = Desktop
End Function

Лист 2 (пример для папки)

vb Код:
If FolderToProc <> "" Then
    Application.EnableEvents = False
    RestFolderToProc = FolderToProc
    Range("A11:F344").ClearContents
    i = 2
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objShellApp = CreateObject("Shell.Application")
    Set objFolder = objShellApp.Namespace(FolderToProc)
    Set objFolderItems = objFolder.items()
    objFolderItems.Filter 64 + 128, "*.avi;*.mp4;*.wmv;*.vob;*.mkv"
    For Each File In objFolderItems
        Cells(i, 1) = objFSO.GetBaseName(File.Path)
        Cells(i, 2) = objFSO.GetExtensionName(File.Path)
        Cells(i, 3) = objFolder.getdetailsof(File, 1)
        Cells(i, 4) = objFolder.getdetailsof(File, 27)
        Cells(i, 5) = objFolder.getdetailsof(File, 316)
        Cells(i, 6) = objFolder.getdetailsof(File, 314)
        i = i + 1
    Next
    Application.EnableEvents = True
End If
End Sub
 
Private Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", _
                       Optional ByVal InitialPath As String = "c:\") As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        If Not Right$(InitialPath, 1) = PS Then InitialPath = InitialPath & PS
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
        If .Show <> -1 Then Exit Function
        GetFolderPath = .SelectedItems(1)
    End With
End Function

Но данный код выводит только список файлов из корневой папки. Подскажите, пожалуйста, что и где нужно добавить (переделать), чтобы список выводился полностью с файлами из вложенных папок?
Вложения
Тип файла: zip Courses_19_05_2021_20-11-47.zip (26.5 Кб, 0 просмотров)
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Требуется получить список (d c b a) imported_trin Lisp 0 16.12.2010 22:50
Как прочесть имена всех файлов в папке Виталик 1 Delphi 4 02.03.2007 10:03
Обработка файлов в папке, создание таблицы! trio-mi Visual Basic 14 23.11.2006 13:20
Как получить из формулы список? rolechka Prolog 7 24.11.2005 14:44
OCI список таблиц как его получить vilru Oracle 3 08.01.2005 17:42
Как получить имена всех файлов в папке se7en Delphi 9 25.04.2004 03:49
Как получить список таблиц crelby PostgreSQL 0 12.03.2004 13:33
Как получить путь к папке TEMP Anonymous Visual C++ 4 08.12.2003 17:25
Работа с файлами как получить список файлов Anonymous С/С++ 5 12.09.2003 14:48
Как получить путь к папке автозагрузка для всех пользователей Anonymous Visual C++ 2 10.04.2003 23:48
Как получить путь к папке Автозагрузка Anonymous Visual C++ 6 04.04.2003 13:45
Как получить путь к папке Автозагрузка Anonymous C++ Builder 1 03.04.2003 15:24



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов