Windowsのテンポラリフォルダの取得 ： Access

■ Access VBA 実行コード

'実行中のユーザの一時(テンポラリーファイル保存用)ディレクトリまでのパスを返す
Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _
    (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

'コマンドボタンクリックイベント
Private Sub コマンド0_Click()
    Dim sBuf As String * 255
    Dim lRet As Long
    Dim s As String

'255文字の空白
    sBuf = Space(255)
'テンポラリーフォルダ
    lRet = GetTempPath(255, sBuf)
'文末文字から前を表示
    Me.Caption = Left$(sBuf, InStr(sBuf, Chr(0)) - 1)
End Sub