Private Sub Command1_Click()
Dim ss As String
Open app.path&"aa.txt" For Input As #1
Do Until EOF(1)
Line Input #1, ss
Print ss
Exit Do
Loop
Close #1
End Sub
Dim ss As String
Open app.path&"aa.txt" For Input As #1
Do Until EOF(1)
Line Input #1, ss
Print ss
Exit Do
Loop
Close #1
End Sub
解决方案 »
- Treeview控件读取数据库
- vb创建的word文件打开提示时“Micsoft office word 需要转换器以正确显示该文件”
- CSDN的文章列表地址是多少啊?
- 谁可以帮我
- !!! 紧急求助Access数据库问题,谢谢您了 !!!
- 请各位大侠帮忙修改一下vb连接公网ip下的sql2000数据库的字符串,谢谢!
- 我还想知道 如中国人习惯, 如何在水晶报表中做表格形式的报表?急的不得了!
- 各们大侠求救:什么在水晶报表9.0中用代码连接一个数据源时总出错,急...
- 郁悶中........用DATAGRID的疑問
- 从数据库中调用图片
- 感谢coowoo(密码已过期)朋友的帮助,请来拿分吧(绝对不是倒分)
- 关于winapi关机的问题。
strPath=app.path & "abc.txt"
else
strPath=app.path & "\abc.txt"
end if