gooドクター有料プランが1ヶ月間無料!

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

Dim ExtDirName1 AS String
ExtDirName1 = "C:\TEMP

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


よろしくお願いします。

gooドクター

A 回答 (1件)

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


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

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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング