＜ファイルの起動場所を知る方法＞
こんにちは、Ｋｅｎ３です。 今回は、VB,Access,Excelなどで、 ファイルの起動場所を知る方法 です。 VB,Access97/2000,Excelによって、違うので、４パターン書きました。 実行できるサンプルを http://www.ken3.org/vba/lzh/vba006.lzh からダウンロード可能にしました。使ってみてください。 Excel,Access,VB の順番に解説します。 /* * １.Excel97/2000 VBA ここはどこ？私は誰？ */ Ｅｘｃｅｌファイルが、 どこから起動したか（どこに保管されているか） 知りたい時、ありませんか？ えっ、無い。。。さようなら。 じゃなくて、相対パスとかで、 処理したいとき、知っていると便利だと思うので、説明します。 ＊各処理言語によって、微妙にちがう、、、VBAで一緒にならないの？かなぁ ----- Sub Record1() MsgBox "Application.Path = " & Application.Path MsgBox "Application.Name = " & Application.Name MsgBox "ActiveWorkbook.Path = " & ActiveWorkbook.Path MsgBox "ActiveWorkbook.Name = " & ActiveWorkbook.Name End Sub ----- を実行してみてください。 Application.Pathかな？と思ったのですが、 これは、Ｅｘｃｅｌ本体のインストールされているパスで、 目的のほうは、 ActiveWorkbook.Pathです。 う〜ん。。。 実行結果:
/* * ２．Access97/2000 VBA ここはどこ？私は誰？ */ ア．Access97 MDBの位置です。 ----- Private Sub B_RUN_Click() MsgBox "CurrentDb.Name = " & CurrentDb.Name MsgBox "CurrentDb.Version = " & CurrentDb.Version End Sub ----- よく、わからなかったので、 CurrentDbを開いて、.Nameを見てます。 ＊ここの.Nameってパス付きなんだよね、、、逆に.Pathがなかったような？ 実行結果:
イ．Access2000 MDBの位置です。 でもAccess2000だと、 CurrentProject. ってオブジェクトがあって、 プロパティの .Name .Path を使うと楽に取れそうです。 Option Compare Database Option Explicit Private Sub B_RUN_Click() MsgBox "CurrentDb.Name = " & CurrentDb.Name MsgBox "CurrentDb.Version = " & CurrentDb.Version MsgBox "CurrentProject.Name = " & CurrentProject.Name MsgBox "CurrentProject.Path = " & CurrentProject.Path '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^こんな感じ End Sub う〜ん、、、 実行結果:
/* * ３．VB5 ここはどこ？私は誰？ */ 次にＶＢ５です（私の環境ＶＢ５です、、、） ---- Private Sub Command1_Click() MsgBox "App.Path = " & App.Path MsgBox "App.EXEName = " & App.EXEName End Sub ---- あれ、Ａｐｐなの、、こんどは。。。 で、.EXENameですか、、、 実行結果:
/* * ４．終わりの挨拶 */ 今回は、 起動場所を知る方法を 書いてみました。 Excel,Access,VB と微妙に違ったので、なぜ？と思いました。 まぁ、気にしない、気にしない、、、 感想・質問などあったら、掲示板に書いてもらえるとうれしいです 三流プログラマーのＫｅｎ３でした。