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 |