Excel2003VBA Dir関数について

質問

Excel2003VBAを勉強中の者です。早速ですが質問させて頂きます。
C:\Documents and Settings\All Users\Documents\親フォルダ\の中に複数のフォルダと標準ファイルが混在しており、
フォーム上のコマンドボタンを押す事で、リストボックスにフォルダだけを表示させたく下のコードを作成しました。

動作としては一旦FileDateという配列に、取得したフォルダ名をセットし、それをリストボックスに出力する事としました。
配列FileDateはDir関数でフォルダ名をひとつ取得する度に、1つずつ要素数を増やしております。
自分のフォルダを表す記号”.”と一つ上のフォルダを表す記号”..”は省きます。

このコードを実行してみた結果、”.”と”..”は省く事ができました。
しかし次に標準のフォルダが変数bufに入った状態からエラーが発生してしまいます。
■エラー発生■の部分で「実行エラー53　ファイルが見つかりません。」と出てしまうのです。
Dir関数が正しく使えていないのだと思います。
ローカルウィンドウで確認しましたが、変数bufにはフォルダ名がちゃんとセットされている事からファイルそのものは認識してくれている様に思えます。

自分なりにかなり調べ、色々と試してみましたがどうにも手に負えませんでした。
エラーの発生原因と対策をご教示頂きたく、どなたかご助力をお願い致します。

Private Sub CommandButton1_Click()

Dim buf As String
Dim i As Long
i = 1

Dim FileDate() As Variant
ReDim FileDate(1 To i) As Variant

buf = Dir("C:\Documents and Settings\All Users\Documents\親フォルダ\", vbDirectory)

Do
If GetAttr(buf) And vbDirectory Then '■エラー発生■
If buf <> "" And buf <> "." And buf <> ".." Then

FileDate(i) = buf
i = i + 1
ReDim Preserve FileDate(1 To i)

End If
End If

buf = Dir()

Loop While buf <> ""

ListBox1.List = FileDate

End Sub

回答No.2

keithin · ベストアンサー

デバッグしながら，つまりステップ実行しながらローカルウィンドウで変数の値の変化をウォッチしながらデバッグしていけばすぐに気がついた問題ですが。

Dir関数の返値は「ファイル名（フォルダ名）」です。
従って

変更前：
If GetAttr(buf) And vbDirectory Then

変更後：
dir myPath as string
mypath = "C:\Documents and Settings\All Users\Documents\親フォルダ\"

If GetAttr(mypath & buf) And vbDirectory Then

のようにbuf（ファイル/フォルダ名）のフルパスで調査をしないと，「ありません」エラーになります。

お礼

ご回答いただきまして有難う御座います。
上記のコードにて目的の動作が完遂できる事を確認しました！

ご教示頂いた内容はちゃんと理解しました。
これは完全に盲点になっておりました。
そして思わず「あー・・・なるほど！」と声に出してしまいましたｗ

bufにちゃんとファイル名が入っていた事と、Dir関数でパスを指定していた事から
固定観念が出来てしまいすっかり勘違いしておりましたが、考えてみればGetAttr関数を使用するのならば、
改めてパスを入れなくてはならないですよね。

きっと私一人で考え続けていても気付けないままになっていたと思います。
本当に助かりました有難う御座います！！

回答No.3

o_chi_chi

#1です。

たしかにフォルダ名だけだとエラーになりますね。

フルパスならＯＫですけど。。。

お礼

そうなんです。
keithinさんからもご教示頂きましたが、フルパスをちゃんと入力しなければならなかったんです。
完全に盲点でした。
何度もご回答頂いてしまって申し訳ありません。
お時間頂けた事、とても感謝しております。
またこの様な質問をする事があるかと思いますが、懲りずにお付き合いして頂けたら嬉しいですｗ
有難う御座いました！

回答No.1

o_chi_chi

bufが""のとき

GetAttr(buf)

がエラーになってしまいます。

Do While buf <> ""

にすべきでは？

お礼

早速のご回答、有難う御座います。
bufの中身が空=""の状態でエラーが発生するとの件、すぐに確認したいのですが、このコードではbufが"."と".."の状態を処理した後、すぐにエラーが発生してしまっているので、""での検証がまだ出来ないでいるのす。
故にこの問題が解決出た後、おっしゃられる通りに""状態でもエラーが発生してしまうのであれば、そこでまた悩まないといけませんね・・・orz
ご指摘有難う御座います、心の準備が出来ましたｗ
ちなみに、Do While buf <> ""でも動作的には問題ないと思われるので、それでやってみましたが、しかし同じ部分で同じエラー53が発生してしまいました。