フォルダ名を一括取得したい（既存コードを変更して）

Question

現在ファイル名を一括取得するコードが出来上がっています。

下記のコードの一部分を変更することで
「フォルダ名」を取得することはできるでしょうか？
※できればフォルダ名のみ、がいいです。

「E2セル」に取得したいフォルダのパスを入力するという方法は変えたくないです。

Sub Get_FileName()
Const cnsTitle = "?t?@?C???????擾"
Const cnsDIR = "."
Dim xlAPP As Application
Dim strPath As String
Dim strFilename As String
Dim GYO As Long

Set xlAPP = Application

Dim pass As String
pass = Range("E2").Value
Debug.Print (pass)

'*********************************************************
   strPath = pass
'*********************************************************

If Dir(strPath, vbDirectory) = "" Then
    MsgBox "?w???t?H???_???????????B", vbExclamation, cnsTitle
Exit Sub
End If

strFilename = Dir(strPath & cnsDIR, vbNormal)

Do While strFilename <> ""

    GYO = GYO + 1
    Cells(GYO, 1).Value = strFilename

    strFilename = Dir()
Loop

End Sub
'-----------------<< End of Source >>------------------

宜しくお願いします。＞＜

Answer 1

Dir関数の引数を変えればいいのでは？

strFilename = Dir(strPath & cnsDIR, vbNormal)
↓
strFilename = Dir(strPath & cnsDIR, vbDirectory)

詳しく見てないので、他に落とし穴があったらすみません。

Comments

[noncha930]

できました！！！
ありがとうございました＾＾！！

感謝です＞＜