Dim A, S As String

Dim FreeNum As Integer
FreeNum = FreeFile
'Freenum表示一个空闲的文件号
Open "e:\vb\1.txt" For Input As #FreeNum
'这步是打开“date.txt”，for input表示以输入方式（即读取文件）打开。如果要写入文件则应该用output或append。

Do until EOF(FreeNum) '循环，直到文件结尾。Eof函数用来判断文件是否读完
Line Input #FreeNum, A

If A = "192.168.1.80" Then

MsgBox "正常OK"
Exit Do '找到了退出循环
End If

Loop
Close #FreeNum


这样不就可以了吗`?~~~还在下面的东西干什么啊``