189 8069 5689
方便调试。vb.netbasestream.peek是sream里面的一个转换树结构的参数，是为了可以随时调试数据内容，改变整个公式的数据路径的。
创新互联建站网站建设由有经验的网站设计师、开发人员和项目经理组成的专业建站团队，负责网站视觉设计、用户体验优化、交互设计和前端开发等方面的工作，以确保网站外观精美、成都网站设计、成都网站建设、外贸网站建设易于使用并且具有良好的响应性。
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim r As New StreamReader("C:\jq.TXT") '打开文件
Dim Mytxt As String = ""
Dim s As String
Do While r.Peek -1 '是否到文件尾
s = r.ReadLine '从打开的文件中读取一行内容
Mytxt = Mytxt s vbCrLf '逐行读取文本，并连接到变量Mytxt中
Loop
r.Close() '关闭对象
'判断是否与变量相等etjq，略了吧？？？
End Sub
End Class
TCP协议是TCP/IP协议簇中的传输层中的一个协议，也是TCP/IP协议簇最为重要的协议之一。在TCP/IP协议簇中，有一个协议和TCP协议非常类似，这就是UDP协议，网络上进行基于UDP协议的数据传送时，发送方只需知道接收方的IP地址（或主机名）和端口号就可以发送UDP数据包。而接收方只需知道发送方发送数据对应的端口号，就能够接收UDP数据包了。传送数据的双方并不需要进行连接就能够实现数据通讯，这样就导致基于UDP协议的网络应用程序，在传送数据时无法保证可靠性、完整性和安全性。
而TCP协议却与之相反，TCP协议是一种面向连接的，并提供可靠的、完整的、安全的数据传送的网络协议。它提供可靠字节服务的协议。在网络中通过TCP协议传送数据之前，发送方和接收方之间必须建立连接，这种连接就是所谓的"握手"。网络中TCP应用，如同日常生活中的打电话，在通话之前，首先要拨号、震铃（犹如发送方向接收方提出TCP连接申请，并等待TCP连接申请通过）。直到对方拿起电话时（发送方和接收方的TCP连接已经建立），就可以通话了（传送数据）。本文的主要内容就来介绍在Visual Basic .Net实现基于TCP协议网络数据传送的一种简单的方法。
一．简介本文在实现TCP协议网络应用时使用的类库：
.Net FrameWork SDK中提供了很多用以实现TCP协议或与之相关协议的类库，本文就选择五个比较典型，也是比较简单的类加以介绍，即：TcpListener类、TcpClient类、NetworkStream类、StreamReader类和StreamWriter类。TcpClient主要用以提出TCP连接申请。TcpListener主要用以侦听端口号，并接收远程主机的TCP连接申请。NetworkStream类是实现TCP数据传输的基础数据流，StreamReader类作用是通过操作NetworkStream，实现从网络接收数据。StreamWriter类作用是通过操作NetworkStream，实现向网络传输数据。
1. NetworkStream类：
NetworkStream类主要是提供用于网络访问的基础数据流。它主要是网络数据传输的载体，并提供同步、异步方式来访问网络数据流。虽然NetworkStream类有构造函数，但在实际情况中更多是通过TcpClient实例的GetStream方法来初始化NetworkStream实例。以下就是使用TcpClient实例的GetStream方法来初始化NetworkStream实例具体代码：
Dim tcpClient As TcpClient
Dim nsStream As NetworkStream
tcpClient = New TcpClient( "" , 8000)
''对远程主机的8000端口提出TCP连接申请
nsStream = tcpClient.GetStream ( )
''TCP连接建立后，获得网络数据传输的基础数据流
在下面介绍的程序示例中，就是利用NetworkStream作为传送和接收数据的载体。而操作这个载体的就是StreamWriter类和StreamReader类。表01和表02是NetworkStream类中一些常用的方法、属性及其说明。
方法 说明 BeginRead 开始异步读者基础数据流。 BeginWrite 开始异步写入基础数据流。 Close 关闭流并可选择关闭基础套接字。 EndRead 结束异步读取。 EndWrite 结束异步写入。 Flush 刷新流中的数据。 Read 从流中读取数据。 Seek 将流的当前位置设置为给定值。 SetLength 设置流的长度。 Write 将数据写入流。
表01：NetworkStream类中常用的方法及其说明
其中"BeginRead"、"EndRead"和"BeginWrite"、"EndWrite"是二对异步方法，起作用分别相当于"Read"和"Write"方法。
属性 说明 CanRead 获取当前流是否支持读取。 CanSeek 获取流是否支持查找。该属性总是返回 false。 CanWrite 获取当前流是否支持写入。 DataAvailable 获取是否可以在流上读取数据。 Length 流上可用数据的长度。 Position 获取或设置流中的当前位置。
表02：NetworkStream类中属性及其说明
2. StreamReader类：
StreamReader类能够实现对基础数据流的读操作，从而实现对经过基础数据流传送来的数据。表03是StreamReader类的常用的方法及其说明：
方法 说明 Close 关闭StreamReader并释放与阅读器关联的所有系统资源。 DiscardBufferedData 允许StreamReader丢弃其当前数据。 Peek 返回下一个可用的字符，但不使用它。 Read 读取输入流中的下一个字符或下一组字符。 ReadBlock 从当前流中读取最大数量的字符并从索引开始将该数据写入缓冲区。 ReadLine 从当前流中读取一行字符并将数据作为字符串返回。 ReadToEnd 从流的当前位置到末尾读取流。
表03：NetworkStream类中常用的方法及其说明
3. StreamWriter类：
StreamWriter类能够实现对基础数据流的写操作，从而实现提供基础数据流来传送数据。表04是StreamWriter类的常用方法及其说明：
方法 说明 Close 关闭当前的StreamWriter和基础流。 Flush 清理当前编写器的所有缓冲区，并使所有缓冲数据写入基础流。 Write 写入基础数据流。 WriteLine 写入重载参数指定的某些数据，后跟行结束符。
表04：StreamWriter类的常用方法及其说明
4.TcpClient 类：
TcpClient 类主要为TCP网络服务提供客户端连接。TcpClient是类基于Socket类构建，
它以更高的抽象程度提供TCP服务。TcpClient 提供了通过网络连接、发送和接收数据的简单方法。表05和表06分别是TcpClient类常用方法、属性及其说明。
方法 说明 Close 关闭 TCP 连接 Connect 使用指定的主机名和端口号将客户端连接到 TCP主机 GetStream 返回用于发送和接收数据的流
表05：TcpClient类常用的方法
属性 描述 LingerState 有关套接字逗留时间的信息 NoDelay 一个值，该值在发送或接收缓冲区未满时启用延迟 ReceiveBufferSize 接收缓冲区的大小 ReceiveTimeout TcpClient在启动后为接收数据而等待的时间长度 SendBufferSize 发送缓冲区的大小 SendTimeout 在您启动发送操作后TcpClient将为接收确认而等待的时间长度
表06：TcpClient类常用的属性
5.TcpListener 类：
TcpListener类的主要作用是从TCP网络客户端侦听连接，TcpListener类基于Socket 类
提供更高理念级别的TCP服务。可以使用TcpListener从TCP客户端侦听连接。像 FTP 和 HTTP 这样的应用层协议是在 TcpListener 类的基础上建立的。表7和表8分别是TcpListener类常用方法、属性及其说明：
方法 说明 AcceptSocket 接受挂起的连接请求 AcceptTcpClient 接受挂起的连接请求 Pending 确定是否有挂起的连接请求 Start 开始侦听网络请求 Stop 关闭侦听器表7：TcpListener 类常用的方法
属性 说明 LocalEndpoint 获取当前TcpListener的基础EndPoint Active 获取一个值，该值指示 TcpListener 是否正主动侦听客户端连接 Server 获取基础网络Socket
表8：TcpListener 类常用的属性
二．Visual Basic .Net实现基于TCP协议数据传送程序的体系结构：
在下面介绍的用Visual Basic .Net实现基于TCP协议的数据传送程序是由二个子程序组成的。也可以看成是服务器端程序和客户端程序，其中：服务器端程序的功能是侦听端口号，接收远程主要的TCP连接申请，并接收远程主机传送来的文字数据。另外一个子程序，也就是所谓的客户端程序，主要实现向网络的远程主机提出TCP连接申请，并在连接申请通过后，向远程主机传送文字数据。下面来详细介绍Visual Basic .Net实现TCP协议网络数据传送的服务器端程序和客户端程序的具体步骤。
三．服务器端程序的具体实现步骤：
服务器端程序的实现关键在于侦听端口号，接收远程主机的TCP连接申请，获得网络数据传输的基础数据流，并通过基础数据流接收数据。接收数据使用的是StreamReader中ReadLine方法，由于ReadLine方法是一个阻塞式的方法，所以在下面具体的实现步骤中，是接收数据是在创建的线程中完成的，具体可参阅下面实现步骤中的第十一和十二步。以下是Visual Basic .Net实现TCP协议客户端程序实现的具体步骤：
1. 启动Visual Studio .Net。
2. 选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框。
3. 将【项目类型】设置为【Visual Basic项目】。
4. 将【模板】设置为【Windows应用程序】。
5. 在【名称】文本框中输入【服务器端程序】。
6. 在【位置】的文本框中输入【E:\VS.NET项目】，然后单击【确定】按钮，这样在"E:\VS.NET项目"目录中就产生了名称为"服务器端程序"的文件夹，并在里面创建了名称为"服务器端程序"的项目文件。
7. 把Visual Studio .Net的当前窗口切换到【Form1.vb（设计）】窗口，并从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件，并执行相应的操作：
一个Label组件。
一个StatusBar组件。
一个ListBox组件。
一个Button组件，并在这个Button组件拖入Form1的设计窗体后，双击它，则系统会在Form1.vb文件分别产生这个组件的Click事件对应的处理代码。
8. 按照表05所示调整窗体中各组件属性的数值：
组件类型 组件名称 属性 设置结果 Form Form1 Text 服务器端程序 Form1 MaximizeBox False Form1 FormBorderStyle FixedSingle Button Button1 Text 启动服务 Button1 FlatStyle Flat Label Label1 Text 服务尚未启动 StatusBar StatusBar1 Text 无连接！表05：【服务器端程序】项目中组件设定数值表
9. 把Visual Studio .Net的当前窗口切换到Form1.vb的代码编辑窗口，并在Form1.vb文件的最前面添加下列代码，下列代码在Form1.vb中导入程序中要使用的类所在的命名空间：
Imports System.Net.Sockets
''使用到TcpListen类
Imports System.Threading
''使用到线程
Imports System.IO
''使用到StreamReader类
10. 在Form1.vb中创建各种可视组件的代码中添加下列代码，下列代码的作用是创建全局使用的实例和变量：
Private iPort As Integer = 8000
''定义侦听端口号
Private thThreadRead As Thread
''创建线程，用以侦听端口号，接收信息
Private tlTcpListen As TcpListener
''侦听端口号
Private blistener As Boolean = True
''设定标示位，判断侦听状态
Private nsStream As NetworkStream
''创建接收的基本数据流
Private srRead As StreamReader
''从网络基础数据流中读取数据
Private tcClient As TcpClient
11. 在Form1.vb中的InitializeComponent过程之后添加下列代码，下列代码的作用是定义Listen过程，此过程的作用是侦听本地机的8000端口号，接受网络主机的TCP连接申请，并接收从建立申请的远程主机发送来的文本数据：
Private Sub Listen ( )
Try
tlTcpListen = New TcpListener ( iPort )
''以8000端口号来初始化TcpListener实例
tlTcpListen.Start ( )
''开始监听
StatusBar1.Text = "正在监听..."
tcClient = tlTcpListen.AcceptTcpClient ( )
''通过TCP连接请求
nsStream = tcClient.GetStream ( )
''获取用以发送、接收数据的网络基础数据流
srRead = New StreamReader ( nsStream )
''以得到的网络基础数据流来初始化StreamReader实例
StatusBar1.Text = "已经建立TCP连接！"
''循环侦听
While blistener
Dim sMessage As String = srRead.ReadLine ( )
''从网络基础数据流中读取一行数据
If ( sMessage = "STOP" ) Then
tlTcpListen.Stop ( )
''关闭侦听
nsStream.Close ( )
srRead.Close ( )
''释放资源
StatusBar1.Text = "无连接！"
thThreadRead.Abort ( )
''中止线程
Return
Else
''判断是否为断开TCP连接控制码
Dim sTime As String = DateTime.Now.ToShortTimeString ( )
''获取接收数据时的时间
ListBox1.Items.Add ( sTime + " " + sMessage )
End If
End While
Catch ex As System.Security.SecurityException
MessageBox.Show ( "侦听失败！" , "错误" )
End Try
End Sub
12. 用下列代码替换Form1.vb中的Button1的Click事件对应的处理代码，下列代码功能是用上面定义的Listen过程来初始化并启动线程，接收建立TCP连接的远程主机发送来的文本数据：
Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
thThreadRead = New Thread ( New ThreadStart ( AddressOf Listen ) )
''以Listen过程来初始化线程实例
thThreadRead.Start ( )
''启动线程
Button1.Enabled = False
Label1.Text = "服务已经启动！"
Label1.ForeColor = Color.Red
End Sub
13. 用下列代码替换Form1.vb中的Dispose过程，下面代码的作用是重新定义Dispose过程，在Dispose过程手动清除使用的资源，回收垃圾：
Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )
Try
thThreadRead.Abort ( ) ''中止线程
tlTcpListen.Stop ( ) ''关闭侦听
tcClient.Close ( )
nsStream.Close ( )
srRead.Close ( ) ''释放资源
Catch
End Try
If disposing Then
If Not ( components Is Nothing ) Then
components.Dispose ( )
End If
End If
MyBase.Dispose ( disposing )
End Sub
14. 至此在上述步骤都正确执行后，【服务器端程序】项目的全部工作就完成了。编译、生成可执行文件后，接着介绍客户端程序的实现步骤。
四．客户端端程序的具体实现步骤：
客户端端序的实现关键在于向网络中的远程主机提出TCP连接申请，并在申请通过后，得到传输数据的基础数据流，并通过对基础数据流进行写操作向远程主机传送文本数据。由于在客户端程序中没有使用阻塞式的方法，所以程序中没有使用到线程。对远程主机提出TCP连接申请的具体实现方法请参阅以下第步；对基础数据流进行写操作，从而实现向远程主机传送文本数据的方法请参阅以下第步。下面客户端程序的具体实现步骤：
1. 启动Visual Studio .Net。
2. 选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框。
3. 将【项目类型】设置为【Visual Basic项目】。
4. 将【模板】设置为【Windows应用程序】。
5. 在【名称】文本框中输入【客户端程序】。
6. 在【位置】的文本框中输入【E:\VS.NET项目】，然后单击【确定】按钮，这样在"E:\VS.NET项目"目录中就产生了名称为"客户端程序"的文件夹，并在里面创建了名称为"客户端程序"的项目文件。
7. 把Visual Studio .Net的当前窗口切换到【Form1.vb（设计）】窗口，并从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件，并执行相应的操作：
二个Label组件。
二个TextBox组件。
一个StatusBar组件。
二个Button组件，并在这二个Button组件拖入Form1的设计窗体后，双击它们，则系统会在Form1.vb文件分别产生这二个组件的Click事件对应的处理代码。
8. 按照表01所示调整窗体中各组件属性的数值：
组件类型 组件名称 属性 设置结果 Form Form1 Text 客户端程序 Form1 MaximizeBox False Form1 FormBorderStyle FixedSingle Button Button1 Text 连接 Button1 FlatStyle Flat Button2 Text 发送 Button2 FlatStyle Flat Label Label1 Text 服务器IP地址： Label2 Text 信息： StatusBar StatusBar1 Text 无连接！ TextBox TextBox1 Text "" TextBox1 BorderStyle FixedSingle TextBox2 Text "" TextBox2 BorderStyle FixedSingle
表06：【客户端程序】项目中组件设定数值表
有任何疑问请追问，满意请采纳，谢谢。
Imports System
Imports System.IO
Imports System.TextPublic Class Form2 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim path As String = "MyTest.txt" Try
If File.Exists(path) Then
File.Delete(path)
End If '写入流
Dim sw As StreamWriter = New StreamWriter(path)
sw.WriteLine("This")
sw.WriteLine("is some text")
sw.WriteLine("to test")
sw.WriteLine("Reading")
sw.Close()
'读取流
'Dim sr As StreamReader = New StreamReader(path) 'Do While sr.Peek() = 0
' 'This is an arbitrary size for this example.
' Dim c(5) As Char
' sr.Read(c, 0, c.Length)
' 'The output will look odd, because
' 'only five characters are read at a time.
' 'MsgBox(c)
'Loop
'sr.Close()
Catch ex As Exception
Console.WriteLine("The process failed: {0}", ex.ToString())
End Try End Sub '读取流
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim path As String = "MyTest.txt" Dim reader As StreamReader = New StreamReader(path)
Dim c(5) As Char
reader.Read(c, 0, c.Length)
MsgBox(c)
reader.Close() End Sub
End Class 解读Read(arrayChar[]()[], Int32, Int32) buffer 类型：arraySystem..::.Char[]()[]
此方法返回时，包含指定的字符数组，该数组的 index 和 (index + count - 1) 之间的值由从当前源中读取的字符替换。 index 类型：System..::.Int32
开始写入的 buffer 的索引。 count 类型：System..::.Int32
最多读取的字符数。
您好，在Visual Basic.NET中，是没有像这样的文件I/O操作的，一般都是通过System.IO.StreamReader和System.IO.StreamWriter类，System.IO.BinaryReader和System.IO.BinaryWriter类来读写文件以及利用My.Computer.FileSystem类读写文件，利用System.IO.Filestream类来创建文件，通过引用Microsoft Scripting Runtime来执行文件（夹）和驱动器的特殊操作，常用的是System.IO.StreamReader和System.IO.StreamWriter类。
例如说要读取一个文件，我们可以利用System.IO.StreamReader类编写一个方法（也就是函数），但是首先要在当前类的开头添加一个引用，引用名称：System.IO，添加引用的代码如下
Imports System.IO
添加引用之后，就在当前类的内部创建方法：
Private Function ReadFile(ByVal FileURL As String) As String
Dim sr As StreamReader = New StreamReader(FileURL)
ReadFile = sr.ReadToEnd()
sr.Close()
sr = Nothing
End Function
示例说明：
该方法是一个返回String（字符串）数据的函数，FileURL作为参数是用来存放需要访问的文件的URL，当然，要获取一个文件的URL，就是利用这一句代码实现的：
Dim sr As StreamReader = New StreamReader(FileURL)
当获取了URL之后，就要对文件进行读取操作了，然后将读取的结果返回给方法：
ReadFile = sr.ReadToEnd()
读取文件完毕之后，要对文件执行关闭操作：
sr.Close()
当然别忘了清理资源：
sr = Nothing
StreamReader类可以从流或文件中读取字符，在创建StreamREader类的对象时，可以指定一个流对象，也可以指定一个文件URL，创建对象后就可以调用他的方法，从流中读取数据，其常用方法如下：
Peek：返回下一个可用字符，但不使用它。
Read：读取输入流中下一个字符或一组字符并移动流或文件指针。
ReadBlock：从当前流中读取最大数量字符并从index开始将数据写入buffer。
ReadLine：从当前流中读取一行字符并将字符作为String返回。
REadToEnd：从流的当前位置到末尾读取流。
Close：关闭打开的对象，释放资源。
注：流，一种新的数据格式，这种格式可通过System.IO命名空间下的类访问。流用Stream类表示，所有的流都是从这个类中继承的。流向用户提供了一个一般的数据视图，隐藏了操作系统和底层设备的实现细节，所有的流都支持读写操作。在打开文件时将返回对应的流对象，用户可以对流对象进行读写操作。
如果要对文件执行按行读取操作，这时就会用到枚举，这时候，代码就要更改一下了：
Private Function ReadFile(ByVal FileURL As String) As String
Dim sr As StreamReader = New StreamReader(FileURL)
For Each fLine As String In sr.ReadToEnd()
Line = sr.ReadLine()
ReadFile = ReadFile fLine
Next sr.ReadLine
sr.Close()
End Function
示例说明：
For Each…Next：派生于For…Next循环，用于枚举一系列对象中的成员，而这些对象组成集合，如果集合中至少存在一个元素，程序就会静茹For Each块执行。其格式如下：
For Each 元素 [As 数据类型] In 元素集合
[循环体]
[Exit For]
[循环体]
Next [元素]
比如：
Dim CountNumber As ULong = 0
Dim FolderName() As String = New String() {" "}
For Each strFolder As String In My.Computer.FileSystem.GetDirectories("C:\")
CountNumber = CountNumber + 1
ReDim Preserve FolderName(1 To CountNumber)
FolderName = strFolder
Next strFolder
注：My.Computer.FileSystem.GetDirectories：主要用来枚举指定目录的子文件夹。
Preserve：主要用来避免重定义数组而不损失数组元素的原有数据。
另外，利用My.Computer.FileSystem也可以实现文件的读取，其代码如下：
Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt")
示例说明：
定义一个字符串变量利用My.Computer.FileSystem.ReadAllText来实现对“C:\test.txt”的读取。
如果是已经编码的文本，则可以使用My.Computer.FileSystem对象中的ReadAllText方法并提供路径和文件编码类型，将文本写入字符串变量中，例如：
Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt", _
System.Text.Encoding.UTF32)
当然，System.Text.Encoding的成员不止一个，它还有如下成员：
System.Text.Encoding.UTF8
System.Text.Encoding.UTF16
System.Text.Encoding.ASCII
System.Text.Encoding.Unicode
这些是常见的成员，也是主要的成员。
另外，利用My.Computer.Filesystem类无法实现文件的行操作，还有，如果您的计算机未安装完整的Microsoft.NET Framework Runtime，则无法实现这种操作！
写入文件的操作同样简单，Visual Basic.NET 允许用户使用StreamWriter来对文件写入内容，下面就让我们来创建一个子例程，来实现文件的写入：
Private Sub WriterFile(ByVal FileURL As String, ByVal FileCon As String)
Dim sr As StreamWriter = New StreamWriter(FileURL)
sr.Write(FileCon)
sr.Close()
sr = Nothing
End Sub
示例说明：
sr.Write(FileCon)：将FileCon写入文件FileURL之中。
另外，StreamWriter常用方法如下：
WriteLine：向流中写入一行，后面跟结束符。
Write：写入流，向流对象中写入字符并移动流或文件指针。
Close：关闭打开的对象，释放资源。
附：Visual Basic 6.0文件操作解说：
打开： Open 文件名 For Input | Output | Append As [#]文件号
Input打开读入，文件不存在报错。Output打开覆盖写入，文件不存在则创建。Append打 开追加写入，文件不存在则创建。
读： Line Input #文件号, 字符串变量
读一行数据存入字符串变量，数据包括空格、Tab、等，不包括回车符和换行符，所以要显示文件的换行效果，要手动添加回车符和换行符（vbCrLf）
Input #文件号, 变量1[, | ;] [变量2]...
这种方式可以存入多个变量，而且变量类型不限于字符串型。
写： Print #文件号, 参数1[, | ;] [参数2]...
将各参数逐个写入文件。参数间用逗号隔开时，文件中相应插入多个空格；用分号隔开时，插入一个空格。可以用Spc(n)、Tab(n)等进行排版。
Write #文件号, 参数1[, | ;] [参数2]...
这种写入方式将自动添加界定符，对不同参数的类型加以界定。
Visual Basic 6.0文件操作函数：
Seek： Seek(文件号)
返回文件正在访问的位置，返回值为长整型。对顺序文件和二进制文件，返回值以字节为单位；对随机访问文件，返回值以记录号为单位。
Seek： Seek [#]文件号，位置
定位文件到指定位置。位置单位同上所述。
Input： Input (字节数，[#]文件号)
从文件的访问当前位置读入指定字节数的数据。仅适用于顺序文件和二进制文件。
EOF： EOF(文件号)
判断文件的访问位置是否在文件尾，如果是，返回True，否则，返回False。
LOF： LOF(文件号)
返回文件长度，单位为字节。
FileLen： FileLen (文件名)
返回文件名对应文件的长度，单位是字节。该函数取磁盘文件标识中的长度，即文件打开前的长度，可以取未打开的文件长度。
GetAttr： GetAttr (Pathname)
返回指定文件或文件夹的属性。
FileAttr： FileAttr (文件号)
返回文件号对应文件的打开方式。
GetDateTime： GetDateTime (Pathname)
返回文件被创建或修改的最后日期和时间。
Free： FreeFile[(0|1)]
返回未被占用的文件号，Free或Free(0)返回1～255之间未占用的文件号，Free(1)返回256～511之间未占用的文件。
Dir： Dir (Pathname [,Attributes])
测试指定路径是否有某文件，Attributes附加文件属性条件，取值vbNormal、vbReadOnly、vbHidden、vbSystem、vbVolume、vbDirectory。
Kill： Kill (文件名)
删除指定文件，文件名可包含路径。
FileCopy： FileCopy 源文件，目标文件
拷贝文件。
Name： Name 旧文件名 As 新文件名
文件重命名。前后路径不一致时，操作为移动文件并重命名。
MkDir： MkDir path
新建文件夹。
RmDir： Rmdir path
删除文件夹。
ChDrive： ChDrive Drive
改变当前驱动器 ChDrive "D"
CurDir： CurDir [(driver)]
返回当前工作路径，指定driver则返回目标驱动器的当前工作路径。
举例：
'新建文件，并写入数据，关闭
Open "a.txt" For Output As #1
Print #1, "ABCDEFG"; vbCrLf; "HIJK"
Close #1
'打开文件，并全部写入新文件，关闭
Open "a.txt" For Input As #2
Open "b.txt" For Output As #3
Dim str As String
While (Not EOF(2))
Line Input #2, str
Print #3, str
Wend
Close
注：关于Visual Basic 6.0的文件操作资料来自于
如果您觉得我的回答帮助了您解决难题，别忘了采纳哦，如果我的回答未能解决您的问题，您可以在互联网上寻找更多的解决方案！
写入：Dim sr As New IO.StreamWriter(Application.StartupPath "/写入的文本.txt")
sr.WriteLine("写入的内容") sr.Close()读取：If (File.Exists(Application.StartupPath "/msg.txt")) Then
Dim fm As New IO.FileStream(Application.StartupPath "/读取的文本.txt", FileMode.Open)
Dim sr As IO.StreamReader = New IO.StreamReader(fm)
Do While sr.Peek() = 0
TextBox1.Text = sr.ReadLine() （读取文本到文本框）
Loop end if