如何判断某个文件是否已经打开.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

你 可 以 用 下 面 这 个 函 数 来 检 查 一 个 文 件 是 否 被 打 开 。 
    Function IsOpen(sFile As String) As Boolean 
     Dim fFile As Integer 
     fFile = FreeFile() 
     On Error GoTo ErrOpen 
     Open sFile For Binary Lock Read Write As fFile 
     Close fFile 
     Exit Function 
    ErrOpen: 
     If Err.Number <> 70 Then 
     Msg = "Error # " & Str(Err.Number) & " was generated by " _ 
     & Err.Source & Chr(13) & Err.Description 
     MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext 
     Else 
     IsOpen = True 
     End If 
    End Function 
    如 果 Excel以 正 常 方 式 打 开 一 个 文 件 ， 这 个 函 数 返 回 True， 否 则 返 回 False。 这 个 函 数 的 缺 点 是 如 果 Excel以 副 本 或 只 读 方 式 打 开 文 件 ， 也 返 回 False， 不 过 这 对 一 般 的 程 序 没 什 么 不 利 的 影 响 。 
    如 果 你 想 使 用 API来 找 多 个 Excel窗 口 ， 应 该 使 用 GetWindow。 
<END>