Mega Code Archive
File save dialog
<![CDATA[
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
]]>