topic Re: Check if file open in .NET Forum

Check if file open

SRSDS — Thu, 15 Mar 2012 20:36:01 GMT

I need to export data to an excel file but I need to check if the file is already open.

Searching the internet I found this but I don't know what "imports" to use to use to enable it.

    Public Function FileInUse(ByVal sFile As String) As Boolean
        If System.IO.File.Exists(sFile) Then
            Try
                Dim F As Short = FreeFile()
                FileOpen(F, sFile, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
                FileClose(F)
            Catch
                Return True
            End Try
        End If
    End Function

Re: Check if file open

BMcAnney — Thu, 15 Mar 2012 20:44:01 GMT

Looks like you need to import Microsoft.VisualBasic to get the FileOpen and FileClose functions. You may want to change them to use IO.File.Open and IO.File.Close though, to get away from the old VB syntax.

Brent McAnney

Re: Check if file open

Hallex — Thu, 15 Mar 2012 21:08:31 GMT

I don't know what is the namespaces you use

in your program to work with Excel

Anyway you may want to try this function as well

   'Imports Microsoft.Office.Interop.Excel
    'Imports Excel = Microsoft.Office.Interop.Excel
    Public Function IsExcelFileOpen(xlapp As Microsoft.Office.Interop.Excel.Application, filename As String) As Boolean
        Dim isopen As Boolean = True
        Dim wbook As Microsoft.Office.Interop.Excel.Workbook
        Try
            wbook = xlapp.Workbooks(filename)
        Catch
            isopen = False
        End Try
        Return isopen
    End Function

~'J'~

Re: Check if file open

SRSDS — Thu, 15 Mar 2012 21:11:01 GMT

Hi,

I added Imports Microsoft.VisualBasic but it didn't support the problem

OpenMode.Binary is the only one it has a problem with it seems.

Re: Check if file open

arcticad — Thu, 15 Mar 2012 21:22:03 GMT

Microsoft.VisualBasic.OpenMode.Binary