请教各位高手!如何判断一个文件是否已被应用程序打开???

Question

请教各位高手!如何判断一个文件是否已被应用程序打开???

Answer 1

'*********************************************************
'* 名称：FileExists%(filename$)
'* 功能：此函数用于判断文件是否存在
'* 用法：FileExists%('文件名称')
'* 文件不存在返回 0
'*********************************************************
Function FileExists%(filename$)
    Dim F%
    
    On Error Resume Next
    
    F% = FreeFile
    Open filename$ For Input As #F%
    Close #F%
    
    FileExists% = Not (Err <> 0)
End Function
如果上面的打开没问题，免强认为行这个严格意义很不好判断的