Open "d:\mes_test\" & dos & "\" & txtcheck For Input As #1
Do While Not EOF(1) '循环至文件尾
Line Input #1, a '读入一行
If InStr(a, "socketConnection Connected.") > 0 Then
Open "d:\mes_test\" & dos & "\NG.txt" For Output As #100 '输出结果,创建NG.TXT文件
Close #100
Exit Do
Else
Open "d:\mes_test\" & dos & "\OK.txt" For Output As #101 '输出结果,创建OK.TXT文件
Close #101
End If
Loop
Close #1 '关闭文件
-------------------------------------------
为何OK了 输出了OK.TXT 但是NG 了 却输出了OK.TXT 和NG.TXT两个文本了？？ 哪里有问题了？

你不是创建了NG.TXT吗，磁盘中没有这个文件，所以创建了一个，即使为空文件，你正常关闭了，文件还是在的

第一个OPEN之前先检查有没有OK和NG文件存在啊 存在就删除
为什么还要用这样的方式输出结果呢 要是给其它程序用的话 可以输出到注册表或者INI文件啊