vb判断.bmp文件是否打开

Open App.Path & "\tu\hb.bmp" For Binary As #100
用open语句打开文件,我想用if语句判断这个文件是否打开,就是说如果没打开,就打开,请问各位朋友怎么写?

---

是否打开是指是否已经用画笔打开了么?还是别的软件打开了?
如果是画笔,可以用Findwindow函数判断有没有打开

---

为-1有两种情况,可以通过API函数GetLastError来判断.如果GetLastError的值为ERROR_FILE_NOT_FOUND(值是2),则表示文件不存在;如果是ERROR_ACCESS_DENIED(值为5),则表示文件正在使用中,其它的就根据具体的错误号区分了.

---

多谢两位朋友,就是用open打开,希望两位写的详细一点,谢谢啊!!

---

测试过?
拍脑袋想出来的吧?
我用画笔打开后怎么可以直接删除?

引用

换种思路，如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误。就是说如果报错，说明已经打开

代码：

on error goto A1
  FileCopy App.Path & "\tu\hb.bmp", "hb.bmp"
  kill "hb.bmp"
  '如果不报错，说明没有打开
    Open App.Path & "\tu\hb.bmp" For Binary As #100
    ......
  exit sub
A1:
  msgbox "文件已经打开"
end sub

---

设置一布尔量,在窗体加载的时候赋值False,每次Open App.Path & "\tu\hb.bmp" For Binary As #100
后面为该变量赋值True
然后在每次打开之前判断一下该变量
我这里没VB,自己试试

---

引用

测试过