Open pathname For mode [
Access access] [
lock]
As [
#]
filenumber [
Len=
reclength]
带格式复制就好多了
Open 语句的语法具有以下几个部分:
部分 描述
pathname 必要。字符串表达式,指定文件名,该文件名可能还包括目录、文件夹及驱动器。
mode 必要。关键字,指定文件方式,有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式,则以 Random 访问方式打开文件。
access 可选。关键字,说明打开的文件可以进行的操作,有 Read、Write、或 Read Write 操作。
lock 可选。关键字,说明限定于其它进程打开的文件的操作,有 Shared、Lock Read、Lock Write、和 Lock Read Write 操作。
filenumber 必要。一个有效的文件号,范围在 1 到 511 之间。使用 FreeFile 函数可得到下一个可用的文件号。
reclength 可选。小于或等于 32,767(字节)的一个数。对于用随机访问方式打开的文件,该值就是记录长度。对于顺序文件,该值就是缓冲字符数。
本示例示范 Open 语句的不同用法来做到文件的输出与输入。下列代码以顺序输入模式打开 TESTFILE 文件。
Open "TESTFILE" For Input As #1' 若要以其他方式打开文件,必需先关闭此文件。Close #1
下列代码以只允许写操作的二进制方式打开文件。
Open "TESTFILE" For Binary Access Write As #1' 若要以其他方式打开文件,必需先关闭此文件。Close #1
下列代码以随机方式打开文件,文件中含有用户自定义数据类型 Record 的记录。
Type Record ' 定义用户自定义数据类型。 ID As Integer Name As String * 20End TypeDim MyRecord As Record ' 声明变量。Open "TESTFILE" For Random As #1 Len = Len(MyRecord)' 若要以其他方式打开文件,必需先关闭此文件。Close #1
下列代码以顺序输出方式打开文件;任何过程都可以读写该文件。
Open "TESTFILE" For Output Shared As #1' 若要以其他方式打开文件,必需先关闭此文件。Close #1
下列代码以只允许读的二进制方式打开文件;其他过程不可以读该文件。
Open "TESTFILE" For Binary Access Read Lock Read As #1
[此贴子已经被作者于2007-8-3 17:31:33编辑过]