App.Path

App.Path †

VisualBasic講座へ

App.Path(VB6.0) †

Dim mypath As String

mypath = App.Path

If Right(mypath, 1) <> "\" Then
    mypath = mypath & "\"
End If

AppオブジェクトのPathプロパティです。
そのプログラムの「実行ファイル」のあるディレクトリ(フォルダ)のパスを指します。
ルートフォルダ(C:など)だと最後に"￥"が表示されないようなので、 上のような工夫がされています。
この処理のあとのmypathが実行ファイルのパスです。

VBのウィンドウから実行すると、そのプロジェクトのあるディレクトリを指すようです。

これは、VB.NETでは使えません。

＜初心者のために＞ †

コードの初めに、変数の宣言を

Private mypath As String

として、コードの一番上(変数の宣言をする所)にして(Dim でも構わない)、

mypath = App.Path
If Right(mypath, 1) <> "\" Then
    mypath = mypath & "\"
End If

という4行を、フォームのLoadイベントの所

Private Sub Form_Load()
 'ここのこと
End Sub

に書くと、このフォームのどこからでも利用できます。

Private Sub Form_Load()
    mypath = App.Path
    If Right(mypath, 1) <> "\" Then
        mypath = mypath & "\"
    End If
End Sub

また、「Public」にして標準モジュールに書くと、 プロジェクト全体で使うことができるようになります。

VB.NET †

VB.NETでは、

My.Application.Info.DirectoryPath

が実行ファイルのあるディレクトリ(フォルダ)を指します。
そのディレクトリにあるファイルを示す場合は、

My.Application.Info.DirectoryPath & "\ファイル名"

のように￥が必要です。

コメント・投票 †

今後の講座作りに役立てたいので、是非投票してください。

選択肢	投票
大いに役に立った	111
ある程度役に立った	8
少しは役に立った	2
あまり役に立たなかった	3
全く役に立たなかった	2

また、その他コメントがあったら、お願いします。

• .netでMyはどう宣言するのか書いて欲しかった。素人で申し訳ない -- 授業中? 2007-04-26 11:06:55 (木)

お名前:

スパム対策のため、コメントには日本語を含めてください。よろしくお願いします。