フォルダ名を取得するには (ID:103985)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 fol = Dir(c:\〜, vbDirectory) Do While fol <> "" k = k + 1 folname3(k) = fol fo = Dir Loop としてフォルダ名を取得しようとしているのですができません。 どのように直せばいいでしょう？