Declarations Generator


Public Class FilesDealer

    Public Shared Function GetFilePath(ByVal DialogTitle As String, _
                                       ByVal Filter As String) As String

        Using svDlg As New SaveFileDialog
            With svDlg
                .Filter = Filter
                .Title = DialogTitle
                If .ShowDialog <> Windows.Forms.DialogResult.OK Then
                    Return ""
                End If
                Return .FileName
            End With
        End Using

    End Function

End Class