VB6 サンプルプログラム

備忘録としてVisualBasic6のサンプルプログラムを掲載します。

フォルダー内にあるフォルダ名を取得する

Private Sub Form_Load()
    ' FileSystemObject (FSO) の新しいインスタンスを生成する
    Dim cFso As FileSystemObject
    Set cFso = New FileSystemObject

    ' Folder オブジェクトを取得する
    Dim cFolder As Folder
    Set cFolder = cFso.GetFolder("C:\Users")
    Set subFolder = cFolder.SubFolders

    ' 不要になった時点で参照を解放する (Terminate イベントを早めに起こす)
    Set cFso = Nothing

    Dim stPrompt As String

    ' すべてのファイルを列挙する
    For Each subFolder In cFolder.SubFolders
        stPrompt = stPrompt & subFolder.Name & vbNewLine
    Next subFolder

    ' 不要になった時点で参照を解放する (Terminate イベントを早めに起こす)
    Set cFolder = Nothing

    ' 取得したすべてのファイルパスを表示する
    Call MsgBox(stPrompt)

End Sub