FSO 指定したディレクトリ内のすべてのサブフォルダを取得

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][FSO 指定したディレクトリ内のすべてのサブフォルダを取得]
Option Explicit


Sub 指定フォルダサブフォルダ取得()
'***************************************************
'指定したディレクトリ内のすべてのサブフォルダを取得
'***************************************************
'*Visual Basic 6.0 及び VBA
'*[参照設定] 「Microsoft Scripting Runtime」チェック
'*FileSystemObject の SubFolders メソッド

Dim lIndex As Long
Dim hFolder As Folder
Dim subFolder As Folder
Dim Fso As FileSystemObject

Set Fso = New FileSystemObject
Set hFolder = Fso.GetFolder(ThisWorkbook.Path & "\")

    lIndex = 1 '(使用により数値を変更)
        For Each subFolder In hFolder.SubFolders
'            Debug.Print subFolder.Path’フルパス&フォルダ名の場合
            Debug.Print subFolder.Name 'フォルダ名のみの場合
            lIndex = lIndex + 1
        Next subFolder

Set Fso = Nothing
Set subFolder = Nothing
Set hFolder = Nothing

End Sub








Production Japan Import Application. Since 1998