VBAでサブフォルダを操作する

VBAでサブフォルダを操作する

VBAで指定したフォルダのオブジェクトはGetFolderメソッドで操作します。

Sub macro()
  Dim fso As Object
  Set fso = CreateObject("Scripting.FileSystemObject")
  MsgBox fso.GetFolder("C:\test")
End Sub

C:\testと表示されます。

SubFoldersメソッドを使用するとフォルダ配下のサブフォルダの件数を求めたりすることができます。

Sub macro()
  Dim fso As Object
  Set fso = CreateObject("Scripting.FileSystemObject")
  MsgBox fso.GetFolder("C:\test").SubFolders.Count
End Sub

for each文でSubFoldersオブジェクトをループすることができます。

pathプロパティでサブフォルダのフルパスを取得することができます。

Sub macro()
  Dim fso As Object
  Set fso = CreateObject("Scripting.FileSystemObject")
  For Each i In fso.GetFolder("C:\test").SubFolders
    MsgBox i.path
  Next i
End Sub

高橋

KHI入社して退社。今はCONFRAGEで正社員です。関西で140-170/80～120万から受け付けております^^
得意技はJS(ES6),Java,AWSの大体のリソースです
コメントはやさしくお願いいたします^^
座右の銘は、「狭き門より入れ」「願わくは、我に七難八苦を与えたまえ」です^^