VB6读写系统临时目录 temp

 1Private Sub Command1_Click()
 2Dim s As String, S1 As String
 3s = Environ("temp")
 4'这里是写入
 5Open s & "\abc.txt" For Output As #1
 6Print #1, Text1
 7Close #1
 8'这里是读入
 9Open s & "\abc.txt" For Input As #1
10Input #1, S1
11Close #1
12MsgBox S1
13End Sub