VB6で指定フォルダ以下にあるファイル名を列挙するには？ (ID:102123)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

> FileSystemObjectについて調べて中身を理解してみたいと思います。

FileSystemObject 版のサンプルを提示しておきます。

Option Explicit

Private Sub Form_Load()
    Text1.Text = "C:\Program Files\Microsoft Visual Studio\VB98"
    Command1.Caption = "列挙"
End Sub

Private Sub Command1_Click()
    Dim Files() As Variant
    Files = GetFiles(Text1.Text, True)

'確認用
    Dim v As Variant
    For Each v In Files
        Debug.Print v
    Next
End Sub

Public Function GetFiles(ByVal directory As String, Optional includeDirName As Boolean = False) As Variant()
    Dim Files As Object, FSO As Object
    Set Files = CreateObject("Scripting.Dictionary")
    Set FSO = CreateObject("Scripting.FileSystemObject")

With FSO.GetFolder(directory)
        If includeDirName Then
            'ディレクトリ名も出力
            Files.Add Files.Count, .Path & IIf(.IsRootFolder, "", "\")
        End If

Dim subItem As Object, fileName As Variant

'サブディレクトリを再帰
        For Each subItem In .SubFolders
            For Each fileName In GetFiles(subItem.Path, includeDirName)
                Files.Add Files.Count, fileName
            Next
        Next

'直下のファイル群を列挙
        For Each subItem In .Files
            Files.Add Files.Count, subItem.Path
        Next
    End With
    GetFiles = Files.Items()
End Function

←解決時は質問者本人がここをチェックしてください。

戻る