请问VB中如何读取某个文件，并判断文件是否为空
这个代码
shell "cmd /c netstat -na | find /c "+chr(34)+" 10.0.0.2:80 ESTABLISHED"+chr(34)+" >out.txt"
请问out.txt 这个文本存在哪儿了，如何读取这个文件，并判断这是文件是否为空
谢谢
留名，回家写代码~
理论上应该要写出完全路径的, 但如你没写 当然就在你的本地路径 app.path
你如果是安装在 Programfile\mic.......在 vb98 之下找你的 out.txt吧
dim aa$
Open app.path & "\out.txt" For Input As #1
'Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)
aa = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
if FileLen(App.Path & "\out.txt")=0 then msgbox "文件为空"
相关问答：
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
