Imports System.Windows.Forms
public class SaveFileDialogWith
public Shared Sub Main
Dim SaveFileDialog1 As SaveFileDialog = New System.Windows.Forms.SaveFileDialog
With SaveFileDialog1
.DefaultExt = ".txt"
.Filter = "Text Files|*.txt"
.InitialDirectory = "C:\My Documents"
End With
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Console.WriteLine(SaveFileDialog1.FileName)
End If
End Sub
End class
|