| ■ GetTempPath |
| 一時ファイルの格納パス名を取得します |
| DOS プロンプトで Set と入力したときに、TEMP= の右辺に表示されるパスを取得するのであれば、API を使用せず、VB の標準関数 （Environ ）でも可能です |
| 特に設定してなければ、TEMP=C:\Windows\TEMP となっていると思いますが、API で取得したパス名は最後に \ がつくのでプログラムの記述は少し変わります |
'------------------------------------------------------------------------------
' 一時ファイル格納パス取得（宣言）
'------------------------------------------------------------------------------
Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Dim w_path As String * 256 ' パス名
Dim w_ret As Long ' 戻り値（パス名のサイズ）
' 一時ファイルを格納するパス名を取得する
w_ret = GetTempPath(Len(w_path), w_path)
|