ウィングのHPへようこそ 本文へジャンプ
サンプル一覧へ戻る

現在起動しているアクセスのあるフォルダーを求める


現在、起動しているアクセスのあるフォルダーを求めます。
これは、例えば「c:\test\sample.mdb」が起動し、実行されているときに、そのフォルダー「c:\test」を求めます。
<ソース例>

Dim WK_DB_DIR As String

'まずCurrentDb.Nameで自分のMDBをフルパスで求めます。
'その後にGetFilePath関数でMDBを除いた部分を求めます。

WK_DB_DIR = GetFilePath(CurrentDb.Name)

Public Function GetFilePath(FullFile As String) As String
'**********************************************************************************
'フルパスで指定されているファイル名からパス名だけを取得する。
'引数 : FullFile フルパス指定のファイル名を指定します。
'戻り値: エラーの時、長さの0の文字列
'**********************************************************************************

Dim MyPos As Integer
Dim Nagasa As Integer
Dim Moji As String
Dim i

If FullFile = "" Then
GetFilePath = ""
Exit Function
End If

Nagasa = Len(FullFile)
For i = Nagasa To 1 Step -1
Moji = Mid(FullFile, i, 1)
If Moji = "\" Then
MyPos = i
Exit For
End If
Next i


GetFilePath = Left(FullFile, MyPos)

End Function



サンプル一覧へ戻る
 

Copyright(C) 2006 Wing