Dir関数を使用し最下層のフォルダ名まで取得するには? (ID:87679)

名前

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

本文 例えば Function GetDirectries( strRoot As String, lngCount As Long ) As String() 'Dir関数でstrRootに含まれるディレクトリの配列を返す 'ディレクトリが含まれない場合はvbEmptyを返す End Function という関数を作っておいて、メインで Sub CheckDir( strRoot As String ) Dim strDir() As String Dim lngCount As Long Dim strSub As String strDir = GetDirectries( strRoot ,lngCount ) For Each strSub In strDir If lngCount=0 Then 'グローバル変数の配列等にパス名を追加 Else '再帰処理 CheckDir strSub End If End Sub とすればどうでしょうか