• Home
 · 
• Files/File Controls/Input/Output
 · 
• File Save Save As and Open ( I was working with the last code submitted and saw that the file open

File Save Save As and Open ( I was working with the last code submitted and saw that the file open

File Save Save As and Open ( I was working with the last code submitted and saw that the file open doesnt work , it requires a little tweaking

API Declarations


'hopes that this will work because if it doesnt there wil be alot of people angry with all his postings



Rate File Save Save As and Open ( I was working with the last code submitted and saw that the file open

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

If Error then err
cdialog.Filter="Text (*.txt)|*.txt|"
cdialog.ShowSave
Open cdilaog.FileName For output As #1
Print #1, TextBox
Close #1
err:
End Sub

Private Sub Open()
If Error Then err
cdialog.Filter="Text (*.txt)|*.txt|"
cdialog.ShowOpen
Open cdilaog.Filename As #1
Print TextBox, #1
Close #1
Main.Caption=cdialog.FileName
err:
End Sub

Private Sub Save()
If Error The Err
cdialog.Filter="Text (*.txt)|*.txt|" 'this is here to provide uniformity
If cdilaog.FileName="" Then Save_As ' if there is no filename this will send the program to Save As to ask for a file name or else it will carry on
Open cdilaog.Filename For Output As #1 ' This opens the file if it has a name then saves the contents of the textbox into it.
Print #1, TextBox
Close #1
err:
End Sub