Option Explicit

Private Sub Command1_Click()
    Dim j As Long
    Dim n As Long, strPath As String, strName As String
    
    'Text1のパスをDir1に入れます
    Dir1.Path = Text1.Text
    
    'Dir1にリストされたフォルダのフルパスから
    'フォルダ名だけを抜き取ります
    For j = 0 To Dir1.ListCount - 1
        strPath = Dir1.List(j)
        n = BackInstr(strPath, "\")
        strName = Mid(strPath, n + 1, Len(strPath) - n)
        List1.AddItem strName
    Next
End Sub

'/////////////前回紹介した関数//////////////////////////////////////

'逆方向Instr関数です
Public Function BackInstr(ByVal str1 As String, ByVal str2 As String) As Long
    Dim lngSeek As Long, lngStr2Len As Long
    
    '一番後ろの位置を得るために
    '文字列の長さで取得します
    lngSeek = Len(str1)
    
    lngStr2Len = Len(str2)
        
    '後ろから検索していって対象文字列(str2)が
    '見つかったら、その位置を返して関数から出ます
    Do
        If Mid(str1, lngSeek, lngStr2Len) = str2 Then
            BackInstr = lngSeek
            Exit Function
        End If
        lngSeek = lngSeek - 1
    Loop Until lngSeek <= 0
    
    '見つからなかったら0を返します
    BackInstr = 0
End Function