поиск файлов

[BOO]

как через Fso узнать пути к фйлам их имена (Я все хоче узнать все файлы на диске)! Куда пихать patten (*.*)? или Как???? Помогите новичку!

[RayShade]

Вот такой вот код по идее должен занести в указанный список все файлы и папки с указанного пути.

Код: Выделить всё

Sub EnumFolders(Path As String, aList As ListBox)
On Error GoTo errhdl
Dim fso As FileSystemObject
Dim fsl As Folder
Dim fsl1 As Folder
Dim fsf1 As File
Dim ndx As Node
Dim ndx1 As Node
Set fso = New FileSystemObject
Set fsl = fso.GetFolder(Path & "\")
For Each fsl1 In fsl.SubFolders
aList.additem fsl1.path
Call EnumFolders(Path & "\" & fsl1.Name, aList)
Next fsl1
For Each fsf1 In fsl.Files
aList.additem fsf1.path
End If
Next fsf1
errhdl:
Select Case Err.Number
Case 76: MsgBox "Cannot read the drive.", vbCritical Or vbOKOnly, "Test"
End Select
Exit Sub
End Sub


[Ramzes]

Только не бейте меня, а как же поиск файлов, как сделать так как в Виндовс или хотябы как в Windows Comander? И как сделать или открыть диалоговое окно типа как в Winamp-е ADD DIR, и например просмотреть все файлы рисунков через picturebox???

[RayShade]

Для поиска приведенную функцию можно модифицировать так:

Код: Выделить всё

Sub EnumFolders(Path As String, aList As ListBox, Mask As String)


И далее в ней смотреть соотвествует ли файл заданной маске:

Код: Выделить всё

For Each fsf1 In fsl.Files
if fsf1.name like mask then aList.additem fsf1.path
End If
Next fsf1

Oкно выбора папки вызывается функцией SHBrowseForFolder, библиотека shlwapi.dll

Описание - в MSDN.