投稿日	： 2005/05/26(Thu) 11:44
投稿者	： 名雪
Ｅメール	：
ＵＲＬ	：
タイトル	： サブディレクトリ内までのファイル名取得

ディレクトリ内にあるファイル名を取得する際は
下記ソースの様に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

★ - サブディレクトリ内までのファイル名取得 - 名雪 05/26-11:44No.3375
• Re: サブディレクトリ内までのファイル名取.. - 花ちゃん 05/26-12:19 No.3377
  • Re^2: サブディレクトリ内までのファイル名.. - 名雪 05/26-13:11 No.3378