Tempディレクトリを取得
<一時ファイルが作成可能に>
|
宣 言 |
| (Private) Declare Function GetTempPath Lib "KERNEL32" Alias "GetTempPathA" (ByVal nBufferLength&, ByVal lpBuffer$) As Long |
|
引 数 説 明 |
|
Size |
Long |
TempDirのサイズ |
| TempDir |
String |
Tempディレクトリを格納する文字列 |
|
サ ン プ ル プ ロ グ ラ ム |
| Private Declare Function GetTempPath Lib "KERNEL32" Alias
"GetTempPathA" (ByVal nBufferLength&, ByVal lpBuffer$) As Long Private Sub Form_Load() Dim TempDir As String * 255 GetTempPath 255, TempDir MsgBox TempDir End End Sub |