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) A S 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 was 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