如何知道Windows中临时文件夹temp的所在目录

[textstar]

我想知道如何用VB中的函数得到系统中存放临时文件的地方。

[shines77]

获得Temp目录：

Declare Function GetTempPath Lib "KERNEL32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Public Function GetWindowTempPath() As String
Dim Dummy As Long, StrLen As Long, TempPath As String
StrLen = 255
TempPath = String$(StrLen, 0)
Dummy = GetTempPath(StrLen, TempPath)
If Dummy Then
GetWindowTempPath = Left$(TempPath, Dummy)
Else
GetWindowTempPath = ""
End If
End Function

获得Windows目录：

Declare Function GetWindowsDirectory Lib "KERNEL32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Function GetWindowsPath() As String
Dim Dummy As Long, StrLen As Long, TempPath As String
StrLen = 255
TempPath = String$(StrLen, 0)
Dummy = GetWindowsDirectory(TempPath, StrLen)
If Dummy Then
GetWindowsPath = Left$(TempPath, Dummy)
Else
GetWindowsPath = ""
End If
End Function

当然，你还可以用iShellLinkA获得所有有关Windows的路径和目录。

To lysccd: 他是VB高手吗？？？

[supercow]

用GetWindowsDirectory函数，
返回的字符串+“\temp”就可以了。

[U皮特U]

用API函数：GetTempPath

[bing71]

Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" __
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

private function MyTempPath() as string
Dim sT As String
Dim tmp As String
Dim X As Integer

tmp = String$(2048, 32)
X = GetTempPath(255, tmp)
sT = Mid$(tmp, 1, X)
If Right(sT, 1) = "\" Then sT = Left(sT, Len(sT) - 1)
myTempPath = sT
end sub

[bing71]

Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" __
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

private function MyTempPath() as string
Dim sT As String
Dim tmp As String
Dim X As Integer

tmp = String$(2048, 32)
X = GetTempPath(255, tmp)
sT = Mid$(tmp, 1, X)
If Right(sT, 1) = "\" Then sT = Left(sT, Len(sT) - 1)
myTempPath = sT
end sub

[lysccd]

直接用API函数嘛，我发现你们这些VB高手好象对API不是很感冒一样？WHY？？？？