/ Snippet Library - View Code

Snippet details

ID: 432

Viewed: 1463

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Use the save as dialog.
Put a CommonDialog control on the form and use the following code:

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllPrivate Sub button_Click() Dim iFileNum As Integer Dim sFileName As String With CommonDialog1 .CancelError = True .DefExt = "txt" .Filter = "Text files\|.txt\|All files\|.*" 'the above properties can be set during design time .Flags = cdlOFNPathMustExist + cldOFNHideReadOnly + cdlOFNOverwritePrompt On Error Resume Next .ShowSave If Err = cdlCancel Then 'the user click on the cancel button so bail out Exit Sub End If sFileName = .Filename End With iFileNum = FreeFile Open sFileName For Output As iFileNum Print #iFileNum, form.textbox.Text Close iFileNum basic.Text = form.textbox.Text End Sub

No Reviews to show