Конечно, вашей первой линией защиты будет просто проверить расширение файла:
Function IsImageFile(ByVal filename As String) As Boolean
Dim ext As String = Path.GetExtension(filename).ToLowerInvariant()
' This supposes your program can deal only with JPG files; '
' you could add other extensions here as necessary. '
Return ext = ".jpg" OrElse ext = ".jpeg"
End Function
Еще лучше, как SLC предлагает в комментарии, установить свойство Filter
вашего диалога:
dialog.Filter = "Image files|*.jpg;*.jpeg"
Это не гарантия - в идеале вы должны проверить сам файл, чтобы убедиться, что это изображение, и теоретически вы также должны иметь возможность загружать файлы с аномальными расширениями, если они фактически являются файлами изображений (может быть, просто сначала спросите подтверждение пользователя) - но это легко начать.