File save dialog: File filter, Default name, Overwrite Prompt and title
Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Configuration
Imports System.Resources
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.IO
Imports System.Drawing.Printing
Public Class MainClass
Shared Sub Main()
'Declare a SaveFileDialog object
Dim objSaveFileDialog As New SaveFileDialog
'Set the Save dialog properties
With objSaveFileDialog
.DefaultExt = "txt"
.FileName = "Test Document"
.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
.FilterIndex = 1
.OverwritePrompt = True
.Title = "Demo Save File Dialog"
End With
'Show the Save dialog and if the user clicks the Save button,
'save the file
If objSaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Try
Dim filePath As String
'Open or Create the file
filePath = System.IO.Path.Combine( _
My.Computer.FileSystem.SpecialDirectories.MyDocuments, _
objSaveFileDialog.FileName)
'Replace the contents of the file
My.Computer.FileSystem.WriteAllText(filePath, "C:\\a.txt", False)
Catch fileException As Exception
Throw fileException
End Try
End If
'Clean up
objSaveFileDialog.Dispose()
objSaveFileDialog = Nothing
End Sub
End Class
Related examples in the same category
