VBA 再帰処理 FileSystemObject

Question

前提・実現したいこと

VBAのFileSystemObjectの使い方についての質問です。
以下のソースの様に指定したフォルダ内のファイルを全て読み取りたいのですが、
サブフォルダも含めてファイルを読み取りたいためFor EachでGetFolderメソッドを使用して
全てのフォルダ内のファイルを読み取っています。

ただ、ソース内のコメントの通りFor Each内でCallをする時の引数の指定で.Pathを付けなければ
エラーとなるのが分かりません。
For Eachの変数FolderNameではパスを受け取っているはずなのですが
Callするときになぜ.Pathを付けなければいけないのでしょうか。

発生している問題・エラーメッセージ

エラーメッセージ
ByRef 引数の型が一致しません

### 該当のソースコード
Call test4(FolderName)    
```ここに言語名を入力
ソースコード
Sub test4(Path As String)
    Dim FSO As New Scripting.FileSystemObject
    Dim buf As String
    
    buf = Dir(Path & "*.*")
    
    Do While buf <> ""
        Debug.Print buf
        buf = Dir()
    Loop
    
    For Each FolderName In FSO.GetFolder(Path).SubFolders       '←FolderNameが受け取っている要素はString型のはずですが
　　　　　　　                                                   '以下の通りCall test4(FolderName) ではエラーとなります
                                                                
        Call test4(FolderName)          '←これだと「ByRef 引数の型が一致しません」エラーになります。
        Call test4(FolderName.Path)     '←.Pathを付ける必要があるのはなぜでしょうか。
        
    Next
    
End Sub


Sub test()
    test4 ("C:\Users\ユーザ名\Desktop\test")
End Sub


### 試したこと

VarType()を使用してFolderNameをみてもどちらも（.Pathを付けても付けなくても）String型と出ます。

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[m.ts10806]

エラーとコードはコードブロック ```～～～```はわけてください。コードブロックに入っていないコードがありますので、いずれもコードブロックに入れてください。

Answer 1

SubFolders関数は下記サイトにあるようにFoldersコレクションを返します。
https://msdn.microsoft.com/ja-jp/library/cc428151.aspx

そしてFoldersコレクションは下記サイトにあるように、Folderオブジェクトのコレクションです。
https://msdn.microsoft.com/ja-jp/library/cc428003.aspx

つまりFor EachでSubFolders関数を対象にすると、Folderオブジェクトをひとつずつ取得できるということになります。
なので、FolderNameに入るのはFolderオブジェクトです。String型ではありません。
https://msdn.microsoft.com/ja-jp/library/cc428096.aspx

Comments

[kewashi]

丁寧な説明ありがとうございました。解決しました。

Answer 2

https://msdn.microsoft.com/ja-jp/vba/language-reference-vba/articles/subfolders-property
「Folders コレクションを戻します」って書いてるのでStringじゃないと思いますよ。

Answer 3

補足です

VarType()を使用してFolderNameをみてもどちらも（.Pathを付けても付けなくても）String型と出ます。

の部分ですが、
varTypeはその変数の内部処理形式の型を返しますので変数自体の型はわかりません。テストされているコードの場合、FolderName(Folderオブジェクト)のデフォルト値(おそらく.nameか.path)を見てStringになっているもとの思われます。

変数自体の型を確認するときは、typeNameを使ってください。

Comments

[kewashi]

確認方法まで教えて頂きありがとうございます。

Answer 4

For Each FolderName In FSO.GetFolder(Path).SubFolders       '←FolderNameが受け取っている要素はString型のはずですが

↑メソッド名、プロパティ名がすべてを物語っている。

GetFolder ⇒フォルダ取得＝フォルダ型。
SubFolders ⇒サブフォルダ＝フォルダのコレクション型。