VBAのIE制御

Function folderList(Optional pathName As String = "myPath", _
                    Optional folderValue As String) As String

    If pathName = "myPath" Then: pathName = ActiveWorkbook.Path 'フォルダパス

    'FileSystemObjectインスタンスを生成
    Set objSFO = CreateObject("Scripting.FileSystemObject")

    '指定フォルダのサブフォルダ内のファイル情報取得
    For Each objSubFolder In objSFO.GetFolder(pathName).subfolders

        folderValue = folderValue & "," & objSubFolder.Path
        
        Call folderList(objSubFolder.Path, folderValue) '再帰呼び出し
    Next

    folderList = folderValue
    
End Function

※ドラッグ(スワイプ)すると全体を確認できます。

引数すべてが任意項目となります。

「pathName」には、ファイル名を抽出するフォルダのパスを入力します。
初期値は実行ファイルと同じフォルダ内のパスになります。
「folderValue」には、サブフォルダを含んだフォルダパス文字列が結合された文字列で取得データですので特に指定する必要はありません。
このサブルーチンは、「fileNameAll」「fileNameAllF」サブルーチンに利用されるサブルーチンで指定したフォルダ内のすべてのフォルダ情報を取得しています。

↑VBAのIE操作で分からない事があればこちらの掲示板よりご質問ください。

↑こちらはVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります。

目次