Script Paradigm

Option Explicit
MsgBox fnGetFilePathList("A:\Test")
Function fnGetFilePathList(ByVal strPath)
    fnGetFilePathList = fnPrivateGetFilePathList(strPath, strPath)
End Function
Private Function fnPrivateGetFilePathList(ByVal strParentPath, ByVal strCurrentPath)
    Dim fsoTemp
    Dim fldTemp
    Dim fleIdx
    Dim fldIdx
    Dim strFileName
    Dim strList
    

    '★初期化

    Set fsoTemp = CreateObject("Scripting.FileSystemObject")
    Set fldTemp = fsoTemp.GetFolder(strCurrentPath)
    

    '★ファイル一覧の表示

    For Each fleIdx In fldTemp.Files
        strFileName = fleIdx.Path
        strList = strList & strFileName & vbCrLf
    Next
    Set fleIdx = Nothing
    

    '★フォルダ一覧の表示

    For Each fldTemp In fldTemp.SubFolders
        strList = strList & fnPrivateGetFilePathList(strParentPath, fldTemp.Path)
    Next
    Set fldIdx = Nothing
    

    '★後始末

    Set fldTemp = Nothing
    Set fsoTemp = Nothing
    
    fnPrivateGetFilePathList = strList
End Function