Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Sub cGetTempPath()
Dim Success&, TempDir$
TempDir = Space(255)
Success = GetTempPath(255, TempDir)
MsgBox "Временная папка: " & Trim(TempDir), vbOKOnly + vbInformation
End Sub |
|
