FSO 指定されたフォルダ内に置かれているすべてのフォルダの入ったFoldersコレクションを取得

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][FSO 指定されたフォルダ内に置かれているすべてのフォルダの入ったFoldersコレクションを取得]
Option Explicit


Sub ShowFolderList(folderspec)
'*****************************************************
'指定されたフォルダ内に置かれているすべてのフォルダの
'入った Folders コレクションを返す
'*****************************************************
    Dim fs, f, f1, s, sf
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set sf = f.SubFolders
    For Each f1 In sf
        s = s & f1.Name
        s = s & vbCrLf
    Next
    MsgBox s
End Sub







Production Japan Import Application. Since 1998