要獲得Windows的臨時文件的存放路徑,可以使用GetTempPath API函數(shù)。以下是該函數(shù)的聲明:
Private Declare Function GetTempPath Lib "kernel32" Alias_
"GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
“BufferLength”是這個函數(shù)的第一個參數(shù),它將指定接受傳進來字符串的緩沖區(qū)大小?!癇uffer”參數(shù)用于裝載臨時文件路徑的一個預初始化字串。
調(diào)用前,初始化一個(通常長為255)的以null為結(jié)尾的字符串,長度為字符長度加1。然后調(diào)用這個函數(shù),這個函數(shù)的返回值是一個Long型的變量,該返回值將是TEMP路經(jīng)的真實長度。
Dim lngFolderSize As Long
Dim strFolder As String
Dim lngLength As Long
lngFolderSize = 255
strFolder = String(lngFolderSize + 1, 0)
lngLength = GetTempPath(lngFolderSize, strFolder)
If lngLength > 1 Then
strFolder = Left(strFolder, lngLength)
Else
strFolder = vbNullString
End If
MsgBox strFolder
當你的用戶需要確定臨時文件目錄,并且應(yīng)用程序?qū)⒃谀抢飫?chuàng)建臨時的工作文件時,這個API函數(shù)將十分有用。