判断文件是否被打开

判断文件是否被打开

 

根据文件完整路径获取文件名
        strFileName = Right(strFilePath, Len(strSrcZipedDB) - InStrRev(strFilePath, "/"))

 

 

方法一：利用进程判断

  Public Sub IsFileOpen(ByVal strFilePath As String) Dim i As Integer Dim ps() As Process = Process.GetProcesses Dim p As Process Dim strFileName As String Try '//根据文件完整路径获取文件名 strFileName = Right(strFilePath, Len(strFilePath) - InStrRev(strFilePath, "/")) For i = 0 To ps.Length - 1 p = ps(i) If p.MainWindowTitle.Contains(strFileName) Then MsgBox("文件打开") End If Next Catch ex As Exception End Try End Sub

注解：
    '''//  Process：提供对本地和远程进程的访问并使您能够启动和停止本地系统进程。
    '''//  GetProcesses：为本地计算机上的每个进程资源创建一个新的 System.Diagnostics.Process 组件。
    '''//  Right：返回一个字符串，该字符串包含从某字符串右侧算起的指定数量的字符。
    '''//  Len：返回一个整数，该整数表示字符串中的字符数或存储变量所需的指定字节数。
    '''//  InStrRev：返回一个字符串中另一个字符串的第一个匹配项的位置，从字符串的右侧算起。
    '''//  MainWindowTitle：获取进程的主窗口标题。
    '''//  Contains：返回一个值，该值指示指定的 System.String 对象是否出现在此字符串中。

 

方法二：

Public Function IsFileOpen(ByVal strFilePath As String) As Boolean Dim fs As System.IO.FileStream Dim strFileName As String Try IsFileOpen = False '//文件名 strFileName = Right(strFilePath, Len(strFilePath) - InStrRev(strFilePath, "/")) fs = New System.IO.FileStream(strFileName, FileMode.Open, FileAccess.Read, FileShare.None) fs.Dispose() Catch ex As Exception IsFileOpen = True '//为True，则：文件打开 End Try End Function 调用： Public Sub test() Dim strFilePath As String strFilePath = "E:/1.xls" If IsFileOpen(w_strBillPath) Then '//判断文件是否打开 MsgBox("文件打开") End If End Sub

注解：
    '// FileMode.Open：指定操作系统应打开现有文件。
    '// FileAccess.Read：对文件的读访问。可从文件中读取数据。
    '// FileShare.None：谢绝共享当前文件。文件关闭前，打开该文件的任何请求（由此进程或另一进程发出的请求）都将失败。

 

 

 或者是 在删除文件时，在Catch中获取错误信息，判断 Err.Number = 57 ，则文件正在使用中，对于图片文件无效。