首页 > 代码库 > Get temp path via windows API
Get temp path via windows API
Private Const MAX_PATH As Long = 260
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nSize As Long, ByVal lpBuffer As String) As Long
Public Function GetTempDir() As String
Dim nSize As Long
Dim buff As String
buff = Space$(MAX_PATH)
nSize = Len(buff)
Call GetTempPath(nSize, buff)
GetTempDir = TrimNull(buff)
End Function
Private Function TrimNull(item As String)
Dim pos As Integer
‘double check that there is a chr$(0) in the string
pos = InStr(item, Chr$(0))
If pos Then
TrimNull = Left$(item, pos - 1)
Else
TrimNull = item
End If
End Function
Private Sub WriteOutput()
Dim i As Long
Dim level As Long
level = 0
Dim Child As IXMLDOMNode
‘output as xml
Dim tempPath As String
tempPath = GetTempDir()
tempPath = tempPath + "test.xml"
Open tempPath For Output As #1
Print #1, m_Batch.xml
Close #1
End Sub