Visual Basic FAQ

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

'Пример кода перебора файлов заданного расширения в каталоге
'Очень удобно если нужна не большая по функциональности программа,
'Чтобы вручную не перебирать, допустим, 100 файлов
'Возможности безграничны
Option Explicit

Function ListFiles(ByVal Path As String, Optional ByVal _
                        NestedDirs As Boolean) As String()
Dim FSO As New Scripting.FileSystemObject
Dim fld As Scripting.Folder
Dim fileList As String
Set fld = FSO.GetFolder(Path)
fileList = ListFilesPriv(fld, NestedDirs)
ListFiles = Split(fileList, vbCrLf)
Text1 = Text1.Text & vbCrLf & fileList
End Function

Function ListFilesPriv(ByVal fld As Scripting.Folder, _
                ByVal NestedDirs As Boolean) As String
Dim fil As Scripting.File
Dim subfld As Scripting.Folder
For Each fil In fld.Files
ListFilesPriv = ListFilesPriv & vbCrLf & fil.Path
Next
If NestedDirs Then
For Each subfld In fld.SubFolders
ListFilesPriv = ListFilesPriv & ListFilesPriv(subfld, NestedDirs)
Next
End If
End Function

Private Sub Form_Load()
Dim FSO As New FileSystemObject
Dim sFile As File
For Each sFile In FSO.GetFolder(App.Path & "\").Files
    If UCase(FSO.GetExtensionName(sFile)) = "TXT" Then
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'В этом месте вставляйте необходимый код для работы с файлом '
'Программу необходимо оставить в каталоге с файлами          '
'Все просто sFile.Name - путь к файлу                        '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    End If
Next sFile
End
End Sub

Запись опубликована on 24.02.2009 at 9:00 и размещена в рубрике: Файл. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.