Open "ning.txt" For Input As #1 Close #1 如何判断打开文件是否成功，比如说，别的程序正在访问，或者这个文件不存在，怎么判断打开文件结果？ 如果程序里没有判断的话，程序会出错，我想自己判断，应该怎么写代码？ on error goto err Open "ning.txt" For Input As #1 Close #1
exit sub err: msgbox "sdfsdf" 最好用api吧朋友,createfile用它来打开文件可以直接取回long值-1为失败
支持，使用独占方式来打开，其他的操作再去打开，就会报错 on error goto fileerr
fileerr: .... exit sub
去看一下VB的出错处理
如果共享打开，是不会出错的。如果是独占或文件不存在，会产生相应的错误，可以直接用 on error goto ErrNext 来在后面进行处理。 另一个办法。。
VB code:
On Error Resume Next Err.Clear Open "ning.txt" For Input As #1 If Err Then Close #1 End If
我在类中有一个函数 Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' 打开刚创建的文件。 ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' 读入所有字符到变量中 ......
