vb获取系统临时目录 temp

VB6.0 取得windows 临时目录 temp
代码如下：

Private Sub Form_Load()
Dim S As String, S1 As String
S = Environ(“temp”)
Open S & “\A.txt” For Output As #1
Print #1, “windows 临时目录是：” & s
Close #1
Open S & “\A.txt” For Input As #1
Input #1, S1
Close #1
MsgBox S1
End Sub