vb打开桌面的123.txt

[jinyang2016]

vb怎样打开桌面的123.txt，前辈们，求教

[ZHRXJR]

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

[一笑拔剑]

首先在工程的引用中选中Windows Scripting Host Object Model button代码里这么写

Dim desk As New WshShell
s=desk.SpecialFolders("desktop")
Open s&"\123.txt" For Input As #1
Input #1, 你要输入txt的内容
Close #1

这样就可以了