• Home
 · 
• Files/File Controls/Input/Output
 · 
• File save, Save As and Open using Common Dialog ( I have only ever seen people do File Open and sav

File save, Save As and Open using Common Dialog ( I have only ever seen people do File Open and sav

File save, Save As and Open using Common Dialog ( I have only ever seen people do File Open and save As done before so I wrote this code to

API Declarations


'cdialog = Common Dialog
'TextBox = RichTextBox
'Main = Form 1 or Mian Form

Main.Caption = "Untitled"



Rate File save, Save As and Open using Common Dialog ( I have only ever seen people do File Open and sav

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

If Error Then err
cdialog.Filter = "Text (*.txt)|*.txt|" ' you can add others here
Open cdialog.FileName For Output As #1
Print #1, TextBox
Close #1
err:
End Sub

Sub Open_Click()
cdialog.Filter = "Text (*.txt)|*.txt|"
Main.Caption = cdialog.Filename
Open cdilaog.FileName As #1
Print TextBox, #1
Close #1
End Sub

Sub Save_Click()
cdialog.Filename= Main.Caption
If cdialog.FileName = "Untitled"  Then SavaAs_Click
Else:
Open cdialog.Filename For Output As #1
Print #1, TextBox
Close #1
End Sub