Чтение файлов с указанным расширением

[13GHOST]

подскажите пожайлуста как сделать так, чтобы программа прочитала все файлы лежащие в данном указанном каталоге с указанным расширением?

[|kerish|]

Создай FileListBox.
В свойстве Path укажи нужный каталог
В свойстве Pattern укажи нужное расширение.
А затем по циклу:
For a = 0 to FileListBox1.ListCount - 1
'Читай файл FileListBox.List(a)
Next

[Sedge]

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

Private Sub cmdSearch_Click()
'
On Error GoTo eRes

'//////////////////////////////////////////////////////////////////////////////////////
  Dim j As Long, sCurrentPath As String
  Dim sExt As String, sCurrentFileName As String
'//////////////////////////////////////////////////////////////////////////////////////

sExt = "exe"
sCurrentPath = "c:\windows\"
sCurrentFileName = Dir(sCurrentPath & "*." & sExt)
  Do While sCurrentFileName <> ""
    Debug.Print sCurrentFileName
    sCurrentFileName = Dir
  Loop

Exit Sub
eRes:
  MsgBox Err.Description
End Sub