ディレクトリ内にあるファイル名を取得する際は
下記ソースの様にDir関数を回してFile配列に格納しておりますが、

ディレクトリのサブディレクトリ内にある
ファイル名まで取得する時(サブディレクトリが階層は未定)は
Dir関数でサブディレクトリ取得し、
更に取得したサブディレクトリからDir関数で
ファイル名を取得する方法しかないのでしょうか？

宜しくお願い致します。


〜〜〜 ディレクトリ内にあるファイル名取得 〜〜〜
    Dim i as Integer
    Dim b as Boolean
    Dim s as String

    i = -1
    ReDim File(0)
    b = False

    Do
        ' 初回
        If b = False Then
            ' ファイル名取得
            s = Dir$("C:\*")
            b = True
        Else
            ' ファイル名取得
            s = Dir
        End If
        
        If s <> "" Then
            ' リストに格納
            i = i + 1
            ReDim Preserve File(i)
            File(i) = s
        Else
            Exit Do
        End If
    Loop

ファイルに関する操作はFileSystemObject オブジェクトを使った方が簡単です。
ここの［FileSystemObject］をご覧下さい。

因みにAPI関数を使用した場合が一番早いようです。

花ちゃん様

有難うございます。
早速参考にさせて頂きます。