/ Snippet Library - View Code

Visual Basic / Save As / Textbox save

Snippet details

ID: 434

Viewed: 1602

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Saving a text box to file. text box named Text1.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllPrivate Sub cmdSave_Click() 'Declare variable Dim strFilename As String 'Do the error handler cdbOpenSave.CancelError = True On Error GoTo errhandler 'Set the properties of the text control cdbOpenSave.Filter = _ "Text Files\|.txt" 'Show the save-as dialog box cdbOpenSave.ShowSave 'retrieve the filename strFilename = cdbOpenSave.FileName & ".txt" 'save the file Open strFilename For Output As #1 Print #1, Text1 Close #1 Exit Sub errhandler: End Sub

No Reviews to show