Open and Save text

How to make an program to open and save text in visual basic 6.

Code for the "Open" button:

Private Sub Command1_Click()
Me.CommonDialog1.Filter = "TextFiles (*.txt) | *.txt"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do Until EOF(1)
Input #1, contentfile
Text1 = Text1 & contentfile & vbCrLf
Loop
Close #1
End Sub

Code for the "Save" button:

Private Sub Command2_Click()
Me.CommonDialog1.Filter = "TextFiles (*.txt) | *.txt"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Enjoy!

Category:

Howto & Style

Tags:

• Visual
• Basic
• 6.0
• Open
• And
• Save
• Text
• Program
• D0VVN104D

[SonitrolCP]

I saved it right but for some reason I clicked it from my Desktop and it opened it in Notepad.

[MultiVideogamelover]

2:51 WTF?

[zhir96]

@l33tharg i dont really remember i said that 4 months ago

[l33tharg]

@zhir96 UH WHAT DID YOU JUST SAY?

[zhir96]

VB 2008 Express edition not this VB 6

[PR0GAM3ST3R]

do you know how to make it save as .bin

[TheErgic]

run time error

[TheErgic]

i dont got the microsoft common dialog thing pls help

[VB6andCMD]

PERFECT!

[0Wolf0Braduz00]

Cant save =.=