VB.NET Checking if a File is Open before proceeding with a Read/Write?

by 
Private Sub IsFileOpen(ByVal file As FileInfo)
    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
            ' do something here, either close the file if you have a handle, show a msgbox, retry  or as a last resort terminate the process - which could cause corruption and lose data
        End If
    End Try
End Sub

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

Call it like this:

Call IsFileOpen(new FileInfo(filePath))

More Related Contents:

  1. TCP Client to Server communication
  2. Webpage works in IE, Chrome and Firefox, but not when using the .NET WebBrowser control
  3. Add an event to all Forms in a Project
  4. Disable Image blending on a PictureBox
  5. Clickable URL in a Winform Message Box?
  6. How to print hidden and visible content of a Container with ScrollBars
  7. .DrawImage with opacity?
  8. Printing multiple pages using PrintDocument and HasMorePages
  9. How do I prevent a form from being resized by the user?
  10. Get File Size on FTP Server and put it on a Label
  11. Saving ListBox with Additional information in My.settings
  12. Crossthread operation not valid… – VB.NET
  13. loop over all textboxes in a form, including those inside a groupbox
  14. Why is it not necessary to indicate ByVal/ByRef anymore?
  15. Automatically adjusting winform and controls to screen size
  16. VB.Net Passing values to another form
  17. Transparency of picture box
  18. DataGridView Cascading/Dependent ComboBox Columns
  19. VB.NET IntelliSense : Disable newline on ENTER autocomplete
  20. How do I fix a .NET windows application crashing at startup with Exception code: 0xE0434352?
  21. Difference between DirectCast() and CType() in VB.NET
  22. Write text files without Byte Order Mark (BOM)?
  23. How can I get the WebClient to use Cookies?
  24. IsNothing versus Is Nothing
  25. AES Encrypt String in VB.NET
  26. Is there a possibility to address elements on a website which have no ID?
  27. How do I find out which control has focus in .NET Windows Forms?
  28. Execute a SQL Stored Procedure and process the results [closed]
  29. Show checked rows into another DataGridView
  30. VB.NET null coalescing operator? [duplicate]

Leave a Comment