VB.Net – Mit OpenFileDialog Datei mit Dialog auswählen

    '============================================
    ' VB.NET Beispiel in Visual Basic .Net
    ' © wilfried.bitz@bridgesolution.de
    '============================================
    Public Function FILE_open_Dialog( _
        ByVal strTitle As String, _
        ByVal strFilter As String, _
        ByVal strFileName As String, _
        ByVal strStartupPath As String) As String
        FILE_open_Dialog = ""
 
 
        Try
 
            Dim opendlg As New OpenFileDialog
            With opendlg
                .InitialDirectory = Application.StartupPath
                .Filter = strFilter
                .Title = strTitle
                .FileName = strFileName
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    FILE_open_Dialog = .FileName
                End If
            End With
 
 
        Catch ex As Exception
            MessageBox.Show(Err.Description)
 
        End Try
 
    End Function