iLogic - check if public document is readonly?
Here is a way to check if the file is ReadOnly:
Dim oFileName As String = "K:\03. Native Drawings\01. Drawing Nos\Test1.xls"
Dim oFInfo As New IO.FileInfo(oFileName)
If oFInfo.IsReadOnly Then
MsgBox("File is ReadOnly.")
End IfAnd this other forum post will show you how to check if Excel is already running on your system.
Wesley Crihfield
(Not an Autodesk Employee)
This might do the trick for you.
I think I probably got most of this from here, then slightly tweaked it.
Private Function FileIsOpen(ByVal oPath As String) As Boolean
Try
Dim oFS As IO.FileStream = IO.File.Open(oPath, IO.FileMode.Open, IO.FileAccess.ReadWrite, IO.FileShare.None)
oFS.Close()
oFS.Dispose()
oFS = Nothing
Return False
Catch oEx As IO.IOException ' File is open
Return True
Catch ex As Exception ' Unknown error
Return True
End Try
End FunctionYou would either need to put this in its own external iLogic rule, then set this rule's options to "Straight VB code", then call it from another rule using AddVbFile at the top, or remove the whole Private Function line & End Fuction, then substitute the oPath for your path in its own variable at the top,
Wesley Crihfield
(Not an Autodesk Employee)
Try this iLogic-code to open excel file if it's not already in use 🙂
Sub Main Dim sFileName As String ' \\ Full path of test file sFileName = "K:\03. Native Drawings\01. Drawing Nos\Test1.xls" MsgBox(FileInUse(sFileName)) ' \\ Only open File if the file is not opened yet If Not FileInUse(sFileName) Then Process.Start(sFileName) End If End Sub Public Function FileInUse(ByVal sFile As String) As Boolean Dim thisFileInUse As Boolean = False If System.IO.File.Exists(sFile) Then Try Using f As New IO.FileStream(sFile, System.IO.FileMode.Open, System.IO.FileAccess.ReadWrite, System.IO.FileShare.None) End Using Catch thisFileInUse = True End Try End If Return thisFileInUse End Function
Jhoel Forshav
Download my free Inventor Addin - Hole Projector
LinkedIn | Ideas | Contributions | Blog posts | Website
I guess I'm not seeing the difference in the code you just posted late yesterday and the code I originally posted in the first reply here nearly two years ago. He already confirmed that this wasn't really what he was looking for. It sounds like what is needed here, if working with an Excel Workbook type document is to reference the Excel namespace, then create an Excel.Workbook type variable, and set its value using the file path specified. Then use its property called Workbook.ReadOnly to check its status. That is a different status/property than the file explorer's file attribute called ReadOnly.
Something like this maybe:
(The two custom functions are ones I commonly use for convenience, and can be skipped in simple situations.)
AddReference "Microsoft.Office.Interop.Excel.dll"
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel
Sub Main
Dim oExcel As Excel.Application = GetExcel
Dim oFileName As String = "K:\03. Native Drawings\01. Drawing Nos\Test1.xls"
Dim oWB As Excel.Workbook = GetWorkbook(oExcel, False, oFileName)
If IsNothing(oWB) Then
MsgBox("Could not get the specified Excel Workbook.", , "")
Exit Sub
End If
If oWB.ReadOnly Then
MsgBox("This Excel Workbook is currently ReadOnly.", , "")
Else
MsgBox("This Excel Workbook is Not ReadOnly.", , "")
End If
End Sub
Function GetExcel() As Excel.Application
Dim oXL As Excel.Application
Try
'try to find an already running instance of the Excel Application
oXL = GetObject(, "Excel.Application")
Catch
'it wasn't found open, so create an instance of it (start the application)
oXL = CreateObject("Excel.Application")
'oXL = New Microsoft.Office.Interop.Excel.Application
Catch
MsgBox("Failed to Get/Create an instance of the Excel Application. Exiting.", , "")
Exit Function
End Try
Return oXL
End Function
Function GetWorkbook(oExcelApp As Excel.Application, oNew As Boolean, Optional oTemplateOrFullFileName As String = vbNullString) As Workbook
If oExcelApp Is Nothing Then Return Nothing
Dim oFileProvided As Boolean = False
If oTemplateOrFullFileName <> "" Then oFileProvided = True
Dim oFileExists As Boolean = False
If oFileProvided Then oFileExists = System.IO.File.Exists(oTemplateOrFullFileName)
If oNew = False And oFileExists = False Then Return Nothing
Dim oWBs As Workbooks = oExcelApp.Workbooks
Dim oWB As Workbook = Nothing
If oNew = True AndAlso oFileExists Then
oWB = oWBs.Add(oTemplateOrFullFileName)
Return oWB
ElseIf oNew = True AndAlso oFileExists = False Then
oWB = oWBs.Add
Return oWB
End If
If oWBs.Count > 0 Then
For Each oWkbk As Workbook In oWBs
If oWkbk.FullName = oTemplateOrFullFileName Then Return oWkbk
Next
ElseIf oWBs.Count = 0 Then
oWB = oWBs.Open(oTemplateOrFullFileName)
Return oWB
End If
End Function
Wesley Crihfield
(Not an Autodesk Employee)
