741
社区成员
发帖
与我相关
我的任务
分享
Dim desk As New WshShell
s=desk.SpecialFolders("desktop")
Open s&"\123.txt" For Input As #1
Input #1, 你要输入txt的内容
Close #1
这样就可以了Private Sub Command1_Click()
AA = "123456"
Open "C:\Users\Administrator\Desktop\123.txt" For Output As #1
Write #1, AA
Close #1
'在桌面创建123.txt文件,C:\Users\Administrator\Desktop\是W7的桌面路径,如果文件不存在,Output方法可以创建文件
End Sub
Private Sub Command2_Click()
Open "C:\Users\Administrator\Desktop\123.txt" For Input As #1
Input #1, BB
Close #1
'Input方法是读取文件内容
End Sub