vb怎么判断文件是否打开！

Question

如Open "C:\脱水转油综报1.lib " For Binary As #1如何再打开之前判断文件
是否打开？谢谢

Answer 1

下列代码以顺序输入模式打开 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 * 20
End 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

Answer 2

我要判断文件是否打开，你给我贴这些msdn里面的打开方式对我有什么帮助呢？