| ■ GetTempFileName |
| 一時ファイル名を取得します |
| プリフィックス （作成される一時ファイル名の先頭に付加される名前 ）は３文字以内で指定します |
| ３文字以上指定しても、それ以降の文字は切り捨てられます |
| パス名 lpPathName には GetTempPath で取得した一時ファイル格納パス名などを指定します |
'------------------------------------------------------------------------------
' 一時ファイル名取得（宣言）
'------------------------------------------------------------------------------
Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" _
(ByVal lpPathName As String, ByVal lpPrefixString As String, _
ByVal uUnique As Long, ByVal lpTempFileName As String) As Long
Dim w_fname As String * 256 ' パス名
Dim w_ret As Long ' 戻り値
' 一時ファイル名を取得する
w_ret = GetTempFileName(".", "TMP", 0, w_fname)
|