Access VBA で フォルダ権限をチェックする

フォルダの有無を以下のようにチェックして
フォルダがあった場合はフォルダの権限をチェックしてそのフォルダ内にmdbを作成するという事を行いたいのですが、
フォルダのアクセス権限かあるかどうかのチェックの仕方がわかりません。

Dim　ExtDirName1　AS　String
ExtDirName1　=　"C:\TEMP

If (objFileSys.FolderExists(ExtDirName1) = True) Then
　　'ここでフォルダのアクセス権限をチェック
'フォルダがあった場合はこのフォルダにmdbを作成
End IF


よろしくお願いします。

No.1 ベストアンサー 回答者： tsukasa-12r 回答日時： 2007/06/22 22:47

MDB を作成 ( CreateDatabase ? ) するところを

On Error GoTo ...
でトラップしてやるのが簡単だと思いますけど・・・。
API の GetFileSecurity を使用してやれば、アクセス権があるかどうか調べることができると思います。なかなか面倒臭そうな気がしますが。
http://www.vbstation.net/spec/S6.htm
にサンプルがあるみたいですので、見てみてはいかがでしょうか。

この回答へのお礼

ご丁寧にご回答ありがとうございました。

やはり面倒だったので、おっしゃるとおりに
On Error GoTo でトラップしてやることにしました。

お礼日時：2007/06/25 16:44