Private Sub Command1_Click()
Dim str As String, x As String
Open "c:\123456.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, x
str = str + x
Loop
Close
Open "c:\123456.txt" For Output As #1
Print #1, str
Close
MsgBox "完成了！", vbOKOnly, "提示"
End Sub
注：我的代码中的文件在C盘，名称为123456.txt，把这些换成你的文件路径就行了。
我已经验证，正确运行。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024