Microsoft Access Club >Access一日一見 >このページ >次頁 <前項  サイト内検索


開いている データベースの フォルダー パス を取得する方法 - Path プロパティの利用



今回は、Pathプロパティを用いて開いているデータベースの格納フォルダーパスを簡単に取得できる方法をご紹介します。

サンプルプロシージャの作成

何れでも利用できるようにFunctionプロシージャを作成します。CurrentProject プロパティを用いて、Pathプロパティと組み合わせます。

Function SamplePro()

    Dim Mypath, MyName As Variant
    Dim Mymsg As Variant
    Dim path As String
    
    'CurrentProject プロパティ
    path = CurrentProject.path
    
    ' パスを設定します。
    Mypath = CurrentProject.path & "\"
    MyName = Dir(Mypath, vbNormal)
    
    Do While MyName <> ""    ' ループを開始します。

        ' ファイルであれば、それを表示します。
        ' vbNewLineは、改行を行う定数です。
        Mymsg = Mymsg & vbNewLine & MyName
        ' 次のファイル名を返します。
        MyName = Dir

    Loop

    MsgBox Mymsg

End Function
実行結果

このプロシージャをイミディエイトウィンドウで実行してみると、下記のようにメッセージボックスが表示されます。

  • 開いているデータベースのフォルダーパスを取得することができます。

関連ページ

2004/01/07

ページの先頭へ 前ページへ戻る

 


開いている データベースの フォルダー パス を取得する方法 - Path プロパティの利用


-Microsoft Access Club-

アメリカ合衆国やヨーロッパのデータセンターからcPanelレンタルサーバーをご提供します。お支払いは日本国内の銀行振込で...。1ヵ月契約からOKです。
アメリカ合衆国やヨーロッパからcPanelレンタルサーバー。
お支払いは日本国内の銀行振込。
最短契約期間は1ヵ月契約からOKです。