|
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
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.