EXCEL フォルダだけを検索したい

質問

ＥＸＣＥＬ２００３を使っています。
開いているファイルと同じフォルダ内に「テストフォルダ」があるかどうかを調べ、存在した場合に削除したいのですが、以下のような書き方ではフォルダだけでなくファイルも検索してしまうようです。
フォルダだけを検索するにはどうしたらいいでしょうか？
ＦＳＯでできることは分かっていますが、以下の方法で試してみたいのです。どうぞ宜しくお願い致します。

Sub test()

my_path = ActiveWorkbook.Path & "\"
f_name = Dir(my_path, 16)
Do Until f_name = ""
If f_name = "テストフォルダ" Then
RmDir "テストフォルダ"
End If
f_name = Dir()
Loop

End Sub

回答No.2

pkh4989 · ベストアンサー

参考にしてください。

Sub test()
　　MyPath = ActiveWorkbook.Path & "\"　　　　　　　'パスを設定します。
　　f_name = Dir(MyPath, vbDirectory)　　　　　　　 '最初のフォルダ名を返します。
　　Do While f_name <> ""
　　　　If f_name <> "." And f_name <> ".." Then　　'現在のフォルダと親フォルダは無視します。
　　　　　　If (GetAttr(MyPath & f_name) And vbDirectory) = vbDirectory Then
　　　　　　　　If f_name = "テストフォルダ" Then
　　　　　　　　　　RmDir "テストフォルダ"
　　　　　　　　End If
　　　　　　End If
　　　　End If
　　　　f_name = Dir　　　　　　　　　　　　　　　　'次のフォルダ名を返します。
　　Loop
End Sub

お礼

ありがとうございました。できました！
f_name = Dir(MyPath, vbDirectory)　と指定するだけではだめなのですね。それがどうしてなのかいまいちスッキリしないのですが、困っていたので本当に助かりました。

下のようにRmDir　を書き換えて　Exit Do　を加えて完成です！
嬉しいです。ありがとうございました！

If f_name = "テストフォルダ" Then
　RmDir MyPath & f_name
　Exit Do
End If

回答No.1

n-jun

削除したいフォルダが決まっているのなら、Ｄｏ～Ｌｏｏｐする必要はないのでは？
フォルダの有無を調べて、あれば削除するだけかと。

my_path = ActiveWorkbook.Path & "\テストフォルダ"
として
変数f_nameの値で判断・分岐する。

お礼

複数のフォルダの中から該当するフォルダの有無を調べるのに、LOOPする方法しか知りませんでした。またの機会にご教授いただけると嬉しいです。
回答していただき、ありがとうございました。