AnsweredAssumed Answered

can't check in file : file is open by another application

Question asked by Loui Leclerc on Jan 10, 2014
Latest reply on Jan 14, 2014 by Loui Leclerc

Like • Show 0 Likes0
Comment • 2

I can check out a file, update and save the file data card, but when i try to check in, my programm crashes and says : "The file is open in another application".

the programm was running fine, i have alredy made changes to 1000 files. It simply crashed on one file. I can't check in or undo check out manually either, even with the admin rights.

The programm crashes on the unlockfile, so i can,t even use the return codes to exit the sub. Is there a way to see if the file is opened in another application in order to skip this file??

Thank you

Loui Leclerc Jan 14, 2014 11:28 AM

Correct Answer

I found the solution to my problem in Knowledge base. Solution ID S-015191.

https://customerportal.solidworks.com/eservice_enu/start.swe?SWECmd=InvokeMethod&SWEMethod=GotoRecord&SWEService=SWGotoRecord&ViewName=SW+Solution+Preview+View+eService&BusObject=Solution&BusComp=Solution&Id=1-912B3S&SRN=

The Variable interface stays open in the sub, and so it can't check it in. The above method explains how to release it prior to checking in.

See the reply in context

No one else had this question

Outcomes

Charley Saint Jan 10, 2014 3:52 PM

Loui,

Maybe try something like what is suggested here: http://stackoverflow.com/questions/11287502/vb-net-checking-if-a-file-is-open-before-proceeding-with-a-read-write

Imports System.IO
Imports System.Runtime.InteropServices

Private Function IsFileOpen(ByVal file As FileInfo) As Boolean


    Dim stream As FileStream = Nothing
    Try
        stream = file.Open(FileMode.Open, FileAccess.ReadWrite, FileShare.None)
        stream.Close()

    Catch ex As Exception

        If TypeOf ex Is IOException AndAlso IsFileLocked(ex) Then
            Return True
        End If
    End Try
    Return False
End Function

Private Shared Function IsFileLocked(exception As Exception) As Boolean
    Dim errorCode As Integer = Marshal.GetHRForException(exception) And ((1 << 16) - 1)
    Return errorCode = 32 OrElse errorCode = 33
End Function

Actions