Wait for a file to be accessible if not wait 10 seconds and try again.

WaitForFileToBeAccessible.vb

    Public Sub WaitForFileToBeAccessible(ByVal fileWaitingOn As String)
        Try
            Using fs As FileStream = New FileStream(fileWaitingOn, FileMode.Open, FileAccess.ReadWrite, FileShare.None, 100)
                fs.ReadByte()
            End Using
        Catch ex As Exception
            System.Threading.Thread.Sleep(10000)
            WaitForFileToBeAccessible(fileWaitingOn)
        End Try
    End Sub