Saving a file.. - Xtreme Visual Basic Talk

02-22-2004, 11:42 PM

ben_Sewell_007 ben_Sewell_007 is offline

Freshman

Join Date: Feb 2004

Posts: 28

Saving a file..

ok the first thing. I am building a html code generator which is a freelance project for fun and it is my first sensible project (3 rubbish basic programs made). I get the users input and the user clicks on "Output now", which is a button. It generates the code, which is place in txtOutput. I want the ability to save the Output as a file.. prefebly if the user clicks on a button "save file" and then has to input a filename.. eg they type in "index" or "main". All files saved should be saved in the syntax "*.htm". Can anybody point a way to do this?

Ben

02-22-2004, 11:46 PM

dan_

Centurion

Join Date: Sep 2003

Location: Aussie Computer

Posts: 151

Use the CommonDialog controls. ShowSave Properties.
Dan_

__________________
Digg.com member

02-23-2004, 12:37 AM

malloc

Senior Contributor

Join Date: Feb 2004

Location: The land of Oz

Posts: 851

When you create an outputfile you can give it the extesion you want.

Code:

Open "output.htm" for output as #1

You could use a commondialog to let the user give the name of the file to create.
You can set the Filter property to something like:

Code:

CommonDialog1.Filter = "HTML files (*.htm)|*.htm"

02-23-2004, 12:41 AM

Ej12N

Centurion

Join Date: Feb 2004

Posts: 149

Love it!

full commented so you get how to use it and learn

Code:

Private Sub cmd_Click()
Dim Filename As String 'declare variable
On Error GoTo strCancel 'If the user press cancel goto strCancel
With CD ' CD = Commondialog name
.CancelError = True ' make an error if user press cancel
.Filter = "HTM Files *.htm|*.htm" 'Filter type of file
.ShowSave 'show the save dialog
Filename = .Filename 'this is the filename that the user gonna type
Open Filename For Output As #1
Print #1, txt.Text 'put what's on txt.Text to the user file *** in you case this would be txtOutput
Close #1 'save it =)
End With
strCancel: 'if cancel pressed then exit sub, so no file is created =)
End Sub