#035 WindowsTempフォルダを調べる方法

説明：
WindowsTempフォルダを調べる方法を紹介します。
#033 Windowsフォルダを調べる方法
#034 WindowsSystemフォルダを調べる方法

サンプルプロシージャ：
標準モジュール <宣言部> に記述します。

Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _
　　(ByVal nSize As Long, ByVal lpBuffer As String) As Long

標準モジュールに記述します。

Public Function bbGetTempPath() As String

　　Dim lpBuffer As String, ret As Long, I As Integer

　　lpBuffer = Space(255)

　　ret = GetTempPath(255, lpBuffer)

　　I = InStr(lpBuffer, vbNullChar)

　　If I > 1 Then

　　　　bbGetTempPath = Left$(lpBuffer, I - 1)

　　Else

　　　　bbGetTempPath = lpBuffer

　　End If

End Function

使用例：
フォームのボタンクリック時等に記述します。

Sub Sample_Click()

　　MsgBox bbGetTempPath

End Sub

関連ページ：
#023 Accessのバージョン（Ver）を調べる方法
#024 指定ドライブの容量を調べる方法
#025 指定ドライブの空き容量を調べる方法
#026 カレントDB名を調べる方法
#027 ドライブタイプを調べる方法
#028 使用可能ドライブを調べる方法
#029 解像度を調べる方法
#030 メモリ容量を調べる方法
#031 コンピュータ名を調べる方法
#032 ユーザー名を調べる方法
#033 Windowsフォルダを調べる方法
#034 WindowsSystemフォルダを調べる方法