Excel VBA/FileSystemObjectで全てのフォルダを取得するコードで「書き込みができません」

Windows7 の Excel2003 で、文末のサンプルコードの sub「test」を実行すると、

上記は本番のコードで出したもの。エラーコード 70/書き込みができません。のエラーが出る。

1. 「パブリックド キュメント」下のフォルダーをリストアップするとエラーが出る。
   　出力されたフォルダーの中に下記の存在しないはずのフォルダーがある。
   • C:\Users\Public\Documents\My Music
   • C:\Users\Public\Documents\My Pictures
   • C:\Users\Public\Documents\My Videos
2. 「パブリックド ピクチャ」では問題ない。
3. 「マイドキュメント」等では問題ない。

ググったら、似たような質問が OKWave にあった。

　かなり自信がありませんが・・・・勝手な推測です・・・
おそらくVBのバグだと思います。

弱ったなぁ〜　

---

■　サンプルコード

Option Explicit

Public Sub test()
    Call 全フォルダ取得("C:\Users\Public\Documents")
End Sub

Public Sub 全フォルダ取得(ByVal argPath)
On Error GoTo ErrError
Dim f As Object
    
    With CreateObject("Scripting.FileSystemObject")
        For Each f In .GetFolder(argPath).SubFolders
            Call 全フォルダ取得(f.Path)
            Debug.Print f.Path
        Next f
    End With
    Exit Sub
    
ErrError:
    Resume Next
End Sub

追伸（2013-06-02）

1. Err.Number 70 の時は、Resume Nxt とした。
2. 出力する前に Dir() で、存在するフォルダーか否かを確認することにした。