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-

年額2,400円でドメインネームサーバーをご用意します。自宅サーバ構築時にご利用下さい。自宅サーバーは応用範囲が広いです。
年額2,400円でドメインネームサーバー。
自社・自宅サーバ構築時にご利用下さい。
やはり、自前サーバーは応用範囲が広いです。