Dim str As String = My.Computer.FileSystem.ReadAllText("D:\Demo.txt")
创新互联公司长期为成百上千客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为铜鼓企业提供专业的成都网站建设、网站制作，铜鼓网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例,为您定制开发。
Dim str_search As String = "profile=" '定义要搜索的字符串
TextBox1.Text = str.Substring(InStr(str, str_search) + str_search.Length - 1)
Dim MyStr As String
Dim MyLineStr As String
MyStr = ""
'读取原文件信息
Open "e:\1.txt" For Input As #1 '以读的方式打开文件
Do While Not EOF(1) ' 循环至文件尾
Line Input #1, MyLineStr '读入一行
If Left(MyLineStr, 2) = "TH" Then
MyStr = MyStr MyLineStr vbCrLf
End If
Loop
Close #1 ' 关闭文件。
'写文件
Open "e:\2.txt" For Output As #1 '以输出方式打开文件
Print #1, MyStr
Close #1 ' 关闭文件。
1，逐个搜索文件夹里的所有TXT文件。
2，每搜索到一个TXT文件就进行对应操作。
一，出错后继续运行程序，可以使用On Error Resume Next.
二，要能点了又可以使用，就要看代码了，应该是你的代码问题
你在代码后面都fileclose(1)了，前面又没有open当然会报错，你把open放到do while前面，就OK了呀。
Public Function BinSearch(ByRef strElement() As String, ByVal strKey As String) As Long
Dim lngLow As Long
Dim lngHigh As Long
Dim lngMiddle As Long
lngLow = 0
lngHigh = UBound(strElement)
While (lngLow = lngHigh)
lngMiddle = (lngLow + lngHigh) / 2
If strElement(lngMiddle) = strKey Then
BinSearch = lngMiddle
Exit Function
Else
If strElement(lngMiddle) strKey Then
lngHigh = lngMiddle - 1
Else
lngLow = lngMiddle + 1
End If
End If
End While
BinSearch = -1 '查找失败
End Function
