Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=543980 Wed, 15 Dec 2004 05:55:36 +0000 вложенные папки!!! https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=543980
M
Тема перенесена из Visual Basic -> Visual Basic. Общие вопросы.
]]> Vasya2000 Работа с файлами\папками https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=543948 Wed, 15 Dec 2004 03:33:07 +0000 вложенные папки!!! https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=543948 Цитата SCINER @ 15.12.04, 04:54
Вот класс, да и вообще в фак его надо :)

Полностью согласен.]]> gemini Работа с файлами\папками https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=543927 Wed, 15 Dec 2004 01:54:55 +0000 вложенные папки!!! https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=543927 в фак его надо :)]]> SCINER Работа с файлами\папками https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=543349 Tue, 14 Dec 2004 14:47:37 +0000 вложенные папки!!! https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=543349 Если функция поиска файлов обнаруживает вместо файла каталог, она должна вызвать себя для найденного каталога.]]> leshiy[cin!] Работа с файлами\папками https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=543299 Tue, 14 Dec 2004 14:23:16 +0000 вложенные папки!!! https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=543299 Цитата ego @ 17.08.02, 23:32
Не забудь подключить MS Scripting Runtime в Project|References
    Option Explicit
     
    Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
     
    Private Sub Command1_Click()
        Dim fso As New FileSystemObject
        Dim fldr As Folder
        Dim subfldr As Folder
        Dim fil As File
        
        Screen.MousePointer = vbHourglass
        List1.Clear
        LockWindowUpdate (List1.hWnd)
        Set fldr = fso.GetFolder("C:Windows")
        For Each subfldr In fldr.SubFolders
            For Each fil In subfldr.Files
                List1.AddItem fil.Name
            Next
        Next
        For Each fil In fldr.Files
            List1.AddItem fil.Name
        Next
        LockWindowUpdate (0)
        Screen.MousePointer = vbDefault
    End Sub

Пример заполняет листбокс всеми файлами из папки Windows, включая подкаталоги

Не выходит каменный цветок. Файлы берутся только из fldr и вложенных в нее. А каким образом получить файлы из вложенных во вложенные, не пойму. Может кто-нибудь поделится?]]> gemini Работа с файлами\папками https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=139027 Sun, 18 Aug 2002 18:28:24 +0000 вложенные папки!!! https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=139027 Цитата mix, 18.08.02, 10:53:00
как найти только определенные типы файлов (например mp3) ?
Сделай проверку:
    If UCase$(Right$(fil.Name, 4)) = ".MP3" Then
        List1.AddItem fil.Name
    End If
]]> ego Работа с файлами\папками https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=139026 Sun, 18 Aug 2002 06:53:00 +0000 вложенные папки!!! https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=139026 ну пасиба...
тока я никак не догоню, как найти только определенные типы файлов (например mp3) ???
]]> mix Работа с файлами\папками https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=139025 Sat, 17 Aug 2002 20:32:52 +0000 вложенные папки!!! https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=139025
    Option Explicit
     
    Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
     
    Private Sub Command1_Click()
        Dim fso As New FileSystemObject
        Dim fldr As Folder
        Dim subfldr As Folder
        Dim fil As File
        
        Screen.MousePointer = vbHourglass
        List1.Clear
        LockWindowUpdate (List1.hWnd)
        Set fldr = fso.GetFolder("C:Windows")
        For Each subfldr In fldr.SubFolders
            For Each fil In subfldr.Files
                List1.AddItem fil.Name
            Next
        Next
        For Each fil In fldr.Files
            List1.AddItem fil.Name
        Next
        LockWindowUpdate (0)
        Screen.MousePointer = vbDefault
    End Sub

Пример заполняет листбокс всеми файлами из папки Windows, включая подкаталоги]]> ego Работа с файлами\папками https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=139024 Sat, 17 Aug 2002 08:47:37 +0000 вложенные папки!!! https://forum.sources.ru/index.php?showtopic=17255&view=findpost&p=139024 вот...
ну и допустим вывести все имена файлов в ListBOx
помогите плиз]]> mix Работа с файлами\папками