' Расположение папки временных файлов
' Добавить в форму TextBox
Private Declare Function GetTempPath Lib "kernel32" Alias _
"GetTempPathA" (ByVal nBufferLength As Long, _
ByVal lpBuffer As String) As Long
Function TemporaryDirectory() As String
On Error GoTo Err_
Dim buffer As String * 512, length As Long
length = GetTempPath(Len(buffer), buffer)
TemporaryDirectory = Left$(buffer, length)
Ex_:
Exit Function
Err_:
Resume Ex_
End Function
Private Sub Form_Load()
' Системная директория для временных файлов
Dim TempDir As String
TempDir = TemporaryDirectory
Text1.Text = TempDir
End Sub
Системная информация (2 797 байт)