|
▼でれすけ さん
▼MPUS さん:
レス。ありがとうございます。
> Public Function IsDirExist(ByVal path As String) As Boolean
> On Error Resume Next
> IsDirExist = GetAttr(path) And vbDirectory
> End Function
:-) 確かに。APIのGetFileAttributesを使う手もありますね。
>dir関数のヘルプをよく読めば分かると思いますよ。
>引数 attributes で vbNormal 0 標準ファイル
>となっています。
.....ははぁ、そういうことですか。ビットフラグとばかり思っていたら..。
先入観とは恐ろしいです(^^;
これだと、いかなる値を指定しようとも 値0である以上、かならず
指定する扱いになってしまいますね。
いや、引っかかりました。詐欺ですよ、そんなの..。(苦笑)
>>Public Function IsDirExist(path As String) As Boolean
> If Dir(path, vbDirectory) <> "" Then _
> IsDirExist = GetAttr(path) And vbDirectory
>End Function
ありがとうございます。ただ、空文字列を渡すと、ErrがRaiseされてしまうので、
#Dir("",vbDirectory)とすると、"."が返ってくる
でれすけ さんの、On Error Resume Nextのようなエラートラップ処理なり、
事前の判断なりは必要かもしれませんね。
皆さんお騒がせしました。
今日は大変勉強になりました。
本当に、ありがとうございましたm(_ _)m
また、よろしくお願いいたします
|
|