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