OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

Access(VBA)で「App.path」

  • すぐに回答を!
  • 質問No.210414
  • 閲覧数2399
  • ありがとう数4
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 60% (3/5)

Access(VBA)で「App.path」を使用しようとしたところエラーになりました。

Call fnFileWrite2("d:\test110.txt", …
上の形だと上手くいくのですが、下の形だと上手くいきません

Call fnFileWrite2(app.Path & "\test110.txt", …

Access(VBA)で「App.path」の代わりになる命令はあるのでしょうか?
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 46% (643/1383)

近いのは、
Currentdb.Nameですね。
これによりMDBのフルパス名が手に入りますので、そこからコードでフォルダ名の部分だけを切り出してやります。

Call fnFileWrite2(GetDir(CurrentDB.Name) & "test110.txt", …


Public Function GetDir(strPathName As String) As String
'ファイル名も含めたパス名からディレクトリ部分抜き出す
 Dim i As Long
 Dim strS As String * 1
 For i = Len(strPathName) To 1 Step -1
  strS = Mid$(strPathName, i, 1)
  If strS = "\" Or strS = ":" Then
   GetDir = Left$(strPathName, i)
   Exit For
  End If
 Next i
End Function
お礼コメント
absurd0rt

お礼率 60% (3/5)

返事が遅れて済みません。回答ありがとうございます。
実は先輩のSEの方にも同じ方針でコードを教えていただきました。

SQLのconvert(SQLServer)とto_Date(Oracle)の様な形で
「App.path」にもそのままで使える似たような命令があればと
期待していたのですが、残念ながら無さそうですね。

「App.path」が使えるのは当たり前だと勝手に思いこんでいただけに
回答していただいて助かりました。
投稿日時 - 2002-02-04 22:20:14
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ