VBA FileSystemObject For文 について

Question

下記プログラム内容ですが、ウェブサイトから抜粋しています。
指定フォルダの全てのフォルダパスを取得できたため、フォルダ名を回してフォルダの中のフォルダの各ファイルパスを順次取得できないか検討中です。
（多階層ファイルのフォルダを取得したい）
foldername　にフォルダ名を格納しているつもりですが、
Set fl = fso.GetFolder("C:\Users\08260\Desktop\試し"foldername)
この行にてパスが見つかりませんとエラーが出ます。

下記内容で、フォルダ名を回して、各フォルダのファイルパスを取得するにはどのように記述したらよろしいでしょうか。

お手数おかけしますがご教授お願いいたします。

Sub test2()
Dim fso As FileSystemObject
Set fso = New FileSystemObject ' インスタンス化

Dim pfl As Folder
Set pfl = fso.GetFolder("C:\Users\:::\Desktop\試し\")

Dim foldername As String
Dim fl1 As Folder

For Each fl1 In pfl.SubFolders
    foldername = fl1.Name
    Dim fl As Folder
    Set fl = fso.GetFolder("C:\Users\:::\Desktop\試し\foldername\") ' フォルダを取得
    
    Dim f As file
    For Each f In fl.Files ' フォルダ内のファイルを取得
    　　Debug.Print (f.Path) ' ファイルのパス (D:\Tips.txt) など
    Next
Next

' 後始末
Set fso = Nothing

End Sub

Answer 1

foldernameは変数ですよね。ですので、「""」の中に含めてしまうと変数として認識されません。
また、文字列を接続するには＆を使用します。

fso.GetFolder("C:\Users\:::\Desktop\試し\foldername\")

以下のようにしてはいかがでしょうか。

fso.GetFolder("C:\Users\:::\Desktop\試し\" & foldername & "\")

Comments

[退会済みユーザー]

hex309様
ご返信ありがとうございます。
おっしゃる通り記述しましたら、無事フォルダ名を回すことが出来ました。
基本的なことを忘れておりました。

ありがとうございます。