フォルダ内のサブフォルダ名を列挙する方法

◆概要

このページは、Visual Basic 6.0でフォルダ内のサブフォルダ名を列挙する方法について記載しています。


ファイルシステムオブジェクトに含まれるFolders コレクションを使うことで、フォルダ内のサブフォルダ名を列挙できます。

◆Sample code

次の例は、Windwsフォルダのサブフォルダ名をリストボックスに列挙します。


フォームにラベル、リストボックス、コマンドボタンを作成しておいてください。 

Private Sub Command1_Click()
    Dim colFilesystem As Object
    Dim objFolder     As Object
    Dim objSubFolder  As Object

    Set colFilesystem = CreateObject("Scripting.FileSystemObject")

    'Windowsフォルダを取得
    Set objFolder = colFilesystem.GetSpecialFolder(0)
    Set objSubFolder = objFolder.SubFolders

    'サブフォルダをリストアップ
    For Each objSubFolder In objFolder.SubFolders
        List1.AddItem "[" & objSubFolder.Name & "]"
    Next

    'オブジェクトを開放
    Set colFilesystem = Nothing
    Set objFolder = Nothing
    Set objSubFolder = Nothing

End Sub

Private Sub Form_Load()

    With Label1
        .AutoSize = True
        .Caption = "Windowsフォルダのサブフォルダ一覧"
    End With

    With Command1
        .Caption = "実行"
        .Default = True
    End With

End Sub
　　

◆実行結果

実行結果



▼ページトップへ