Private Sub GetFiles(ByVal SourceDir As IO.DirectoryInfo)
Try
For Each file As String In IO.Directory.GetFiles(SourceDir.ToString())
ProcessFile(file)
Next
Catch ex As Exception
MessageBox.Show(ex.Message, "Error found", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub