Hi @FeelGoodGirl
You can try something like this:
Dim filePath As String = "C:\temp\test.xlsx"
Dim iteration As Integer = 0 ' used to exit the loop if too many iterations have passed
' Start the loop
While True
Try
Using stream As System.IO.FileStream = System.IO.File.Open(filePath, System.IO.FileMode.Open, System.IO.FileAccess.ReadWrite, System.IO.FileShare.None)
' The file has finished saving, as it is no longer being written to by any other processes
MessageBox.Show("The file has finished saving.")
Exit While
End Using
Catch
End Try
' Increment the iteration counter
iteration += 1
' If the loop has run for 100 iterations, exit the loop
If iteration >= 100 Then
Exit While
End If
End While For things like this, it is always wise to put in an exit route to stop it from hanging, as the While loop is otherwise infinite. I have set it to 100 iterations, you may want to play with that number.
Alternatively, if you don't mind putting your code in to subs, the following might be of better use. This uses Thread.sleep between each try, meaning it's less resource intensive:
Public Sub test(fullfileName As String)
Dim busyflag As Boolean = False
Dim iterations As Integer = 0
While FileInUse(fullfileName)
If iterations = 5 Then
busyflag = True
MsgBox("File is busy")
Exit While
End If
System.Threading.Thread.Sleep(1000)
iterations+=1
End While
If Not busyflag Then
MsgBox("File has been saved")
End If
End Sub
Private Function FileInUse(ByVal sFile As String) As Boolean
Try
Using f As New System.IO.FileStream(sFile, System.IO.FileMode.Open, System.IO.FileAccess.ReadWrite, System.IO.FileShare.None)
f.Close()
End Using
Catch
Return True
End Try
Return False
End FunctionYou can call the 'test' routine from a sub main as below:
Sub main()
test("C:\Temp\test.xlsx")
End Sub
Download my free Inventor Addin - Hole Projector
