перечисление файлов в заданной папке

[BV]

Dir - это решение всего твоего вопроса.

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

Dim strFileList As String, strFolder As String, _
    strPattern As String
strFolder = Environ("WinDir"): strPattern = "*.exe"
If Right$(strFolder, 1) <> "\" Then strFolder = strFolder & "\"
strFileList = Dir(strFolder & strPattern, vbNormal)
Do Until strFileList = vbNullString
    Debug.Print strFileList
    strFileList = Dir
    DoEvents
Loop

Либо Win32 API:

FindFirstFile
FindNextFile
FindClose

[SAS]

Очень большое спасибо:).

[eugene2005]

Dir - это решение всего твоего вопроса.

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

Dim strFileList As String, strFolder As String, _
    strPattern As String
strFolder = Environ("WinDir"): strPattern = "*.exe"
If Right$(strFolder, 1) <> "" Then strFolder = strFolder & ""
strFileList = Dir(strFolder & strPattern, vbNormal)
Do Until strFileList = vbNullString
    Debug.Print strFileList
    strFileList = Dir
    DoEvents
Loop

Либо Win32 API:

FindFirstFile
FindNextFile
FindClose

этот код даёт бесконечный цикл и зависание компа, тест на АМД 3200
показывает только верхний файл и на нём циклица. хорошая хохма. спасибо

[eugene2005]

Private Sub Form_Load()
File1.Path = "C:\"
Text1.Text = "Ñîäåðæèìîå C:\"
Dim n As Long
For n = 0 To File1.ListCount - 1
Text1.Text = Text1.Text + vbCrLf + File1.List(n)
Next
End Sub

этот код надёжней и рабочий

[SAS]

Private Sub Form_Load()
File1.Path = "C:"
Text1.Text = "Ñîäåðæèìîå C:"
Dim n As Long
For n = 0 To File1.ListCount - 1
Text1.Text = Text1.Text + vbCrLf + File1.List(n)
Next
End Sub

этот код надёжней и рабочий

Спасибо. Моя проблема уже давно решена. Я решил ее используя filesystem object:

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

Function GetListOfFiles_Folders(path_)

Set fso = CreateObject("Scripting.FileSystemObject")
Set CurFolder = fso.getfolder(path_)
Set foldersInCurFolder = CurFolder.SubFolders   'это коллекция папок
    For Each sub_folder In foldersInCurFolder
    'непосредственное перечисление папок
        ListOFFolders = ListOFFolders & Chr(13) & Chr(10) & sub_folder.Path
            Set Get_Sub_Folder = fso.getFolder(sub_folder.Path)

' и т.д. (необходимо использовать рекурсию)


Использование filesystem object делает возможным применять этот код не только в vb но и в vbs, что мне собственно и было нужно

[BV]

этот код даёт бесконечный цикл и зависание компа, тест на АМД 3200
показывает только верхний файл и на нём циклица. хорошая хохма. спасибо

Быть того не может.

[SAS]

Быть того не может.

Тоже так считаю, по идее не должно зависеть от типа процессора

[keks-n]

Private Sub Form_Load()
File1.Path = "C:"
Text1.Text = "Ñîäåðæèìîå C:"
Dim n As Long
For n = 0 To File1.ListCount - 1
Text1.Text = Text1.Text + vbCrLf + File1.List(n)
Next
End Sub

этот код надёжней и рабочий

На меня за такой код RayShade ругался, дескать, идеологически неправильное решение.

[RayShade]

Да.

И еще раз повторюсь

[keks-n]

Да я, в принципе согласен, уже понял свою ошибку.
З. Ы. Если делать через API, то работает шустрее.