VB6.0 取得windows 临时目录 temp

VB6.0 取得windows 临时目录 temp

Private Sub Form_Load()
Dim S As String, S1 As String
S = Environ("temp")
Open S & "\AA.txt" For Output As #1
 Print #1, "呵呵"
Close #1
Open S & "\AA.txt" For Input As #1
 Input #1, S1
Close #1
MsgBox S1
End Sub

posted on 2012-11-12 00:50  Alfa 阅读( ...) 评论( ...) 编辑 收藏

转载于:https://www.cnblogs.com/wuyifu/archive/2012/11/12/2765700.html