Разделы
Главная

Windows API
Реестр
MS Access
Visual Basic
Download
Форум
Гостевая книга
Ссылки

E-mail

Партнерская программа WWW.PORTA.RU (on-line магазин портативной аудио, видео, фототехники). Самая щедрая, самая честная, самая популярная. Приглашаем всех веб-мастеров к участию!



Submitter.ru - Free promoting
Visual Basic

вернуться назад Как узнать расположение папки для временных файлов?

' Расположение папки временных файлов
' Добавить в форму 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 байт)