| プログラムを起動したフォルダーのPATH(カレントディレクトリ)を取得する （０２４） | |
| 構文 strMyPath=App.Path ’strMyPath に "C:\Windows" 等が入る ファイルのPathを記入する場合 strMyPath & "\" & "ファイル名" と "\" を追加しなけばならない。 但し、ルートディレクトリの時は最後が "\" になります。 使用場所 プログラムを配布したりすると、人によりプログラムをインストールするフォルダーが違ってくる、そのような場合起動ディレクトリを取得し、プログラムとデータを同じフォルダーにさえ入れておけば稼動する。 基本的な使い方 次のように、標準モジュール内に関数を作っておけばどこからでも参照でき便利です。Loadイベント等で必ず起動直後に１度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)を意味します。 |
|