プログラムを起動したPATHを取得
                                                        玄関へお回り下さい。
プログラムを起動したフォルダーのPATH(カレントディレクトリ)を取得する   (024)
     構文

strMyPath=App.Path ’strMyPath に "C:\Windows" 等が入る

ファイルのPathを記入する場合 strMyPath & "\" & "ファイル名" と "\" を追加しなけばならない。 但し、ルートディレクトリの時は最後が "\" になります。

使用場所
プログラムを配布したりすると、人によりプログラムをインストールするフォルダーが違ってくる、そのような場合起動ディレクトリを取得し、プログラムとデータを同じフォルダーにさえ入れておけば稼動する。

基本的な使い方
次のように、標準モジュール内に関数を作っておけばどこからでも参照でき便利です。Loadイベント等で必ず起動直後に1度Call して下さい

ゆう(U)さんのを見習って

Public Function fMyPath() As String
   
'プログラム終了まで MyPath の内容を保持
   
Static MyPath As String
   
'途中でディレクトリ-が変更されても起動ディレクトリ-を確保
   
If Len(MyPath) = 0& Then
        MyPath = App.Path        
'ディレクトリ-を取得
       
'ルートディレクトリかの判断
       
If Right$(MyPath, 1&) <> "\" Then
            MyPath = MyPath & "\"
       
End If
   
End If
    fMyPath = MyPath
End Function


  strMyPath = fMyPath のように指定して使って下さい。
  0& 1& は長整数型(Long)を意味します。




02/01/06