Re: ファイルについて

In Reply to: ファイルについて Posted by OTK on 1998/09/29 09:50:37

> 　あるファイルが使用中かどうか、判断したいんですけど
Outputモードで開いてみてエラーが発生すれば
使用中では？
(テストしてませんがこんな感じ)

lngFileNo = FreeFile
On Error Resume Next
Err.Number = 0
Open "a.txt" For Output As lngFileNo
if Err.Number <> 0 then
    '使用中
else
    '使用中ではない
    Close lngFileNo
end if
On Error Goto 0

ファイルについて - OTK 1998/09/29 09:50:37

>>Re: ファイルについて - Uz 1998/09/29 12:34:36 <<

Re[2]: ファイルについて - OTK 1998/09/29 13:15:05

Re[3]: ファイルについて - OTK 1998/09/29 14:02:24

Re[4]: ファイルについて - Ｕｚ 1998/09/29 18:00:42