vb6的文件操作

总结一下VB6的文件操作，省得要用的时候又到处查找。

一、文件类型
1、顺序文件（文本文件）：以ASCII码形式存放的文件。

似乎还有Unicode码存放的，有没有BCD码的呢？
2、随机访问文件：这种文件格式很有特点：文件中存放若干条等长的单元（也可以说是记录）；每个单元包含同类型、等数量、等长度的数据项；文件中，除了字符串以ASCII码存放之外，其它都以二进制形式直接存放，节省存储空间。

这种文件类型非常适合存储需要和软件交互的数据，如结构体数据、类数据等。

这也是VB特有的文件访问方式。

3、二进制文件：以二进制形式存放，PE程序文件一般都是这个类型。

二、操作方法
1、顺序文件
打开：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]...
这种写入方式将自动添加界定符，对不同参数的类型加以界定。

2、随机访问文件
打开：Open 文件名[For Random] As [#]文件号Len = 记录长度 For Random可以省略，文件不存在则创建，读写都是这种打开方式。

Len是文件中记录的一条长度，用以识别记录的开始与结束，经常用Len(记录名)来获取长度。

读：Get [#]文件号, [记录号], 变量
读一条记录存入变量，可以是系统类型的Integer、Single、String 等等，也可以是自定义类型结构体、类等。

记录号省略时从打开以后最后一次读取的末端开始读取记录。

写：Put [#]文件号, [记录号], 表达式
将表达式中的数据写入文件，表达式可以是各种变量的组合，中间用逗号隔开。

该组数据写入记录号对应的位置，记录号省略时从打开以后最后一次写入的末端开始写入记录。

3、二进制文件
打开：Open 文件名For Binary As [#]文件号
文件不存在则创建，读写都是这种打开方式。

当然也可以用来打开文本文件，读出来将不知所云
读一条记录存入变量，可以是系统类型的Integer、Single、String 等等，也可以是自定义类型结构体、类等。

记录号省略时从打开以后最后一次读取的末端开始读取记录。

读：Get [#]文件号, [读位置], 变量
从“读位置”开始读取数据，读入的长度等于变量的长度，一次读一个。

“读位置”以字节为单位。

“读位置”省略时从打开以后最后一次写入的末端开始读入。

写：Put [#]文件号, [写位置], 表达式
将表达式中的数据写入文件，表达式可以是各种变量的组合，中间用逗号隔开。

该组数据写入“写位置”，“写位置”以字节为单位。

“写位置”省略时从打开以后最后一次写入的末端开始写入。

三、操作权限
使用Input、Binary、Random模式访问，可以同时对单个文件打开多个实例。

使用Append和Output模式之前则必须确定文件Open 文件名For 模式[Access access] [lock ] As [#]文件号[len = 记录长度]
对随机存储文件和二进制文件，可以设置文件的读写权限。

access可写成Read、Write、Read Write，对应只读、只写、读写兼备。

此项功能不适用于顺序文件。

Lock | Unlock 文件号, [记录| [起始记录To终止记录]]
当指明lock标识后，可用以上代码设置文件的共享权限。

对顺序文件，[记录| [起始记录To终止记录]]不起作用，将对整个文件生效；对随机存储文件，将对记录标识中的部分进行权限锁定或解锁。

四、文件操作函数
以上部分可以实现文件操作的一些功能，但要完成如拷贝整个文件、查找文件是否已建立、取文件长度等功能，还需要一些文件操作函数来方便地实现。

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则返回目标驱动器的当前工作路径。

五、文件操作实战
1、新建文本文件a.txt，写入数据，关闭。

打开该文件，全部读入到新建文件b.txt，关闭。

'新建文件，并写入数据，关闭
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
2、新建随机存储文件a.dat，写入数据，关闭。

打开该文件，读入到新建文件b.dat，关闭。

'以下代码位于Module模块
'定义自定义类型结构体
Public Type Struct
elem1 As Integer
elem2 As String * 5
End Type
'以下代码位于窗体模块
'新建文件，并写入记录，关闭
Open "a.dat" For Random As #1 Len = Len(st) Put #1, , st
Close #1
'打开文件，并写入新文件，关闭
Open "a.dat" For Random As #2 Len = Len(st) Open "b.dat" For Random As #3 Len = Len(st) Dim st2 As Struct
Get #2, , st2
Put #3, , st2
Close
3、二进制文件操作类似于随机存储文件，不再举例。