What's Here?
- Members: 300,309
- Replies: 825,515
- Topics: 137,361
- Snippets: 4,417
- Tutorials: 1,147
- Total Online: 2,081
- Members: 128
- Guests: 1,953
|
how to open and save text files
|
Submitted By: pal121
|
|
Rating:
 
|
|
Views: 60,920 |
Language: Visual Basic
|
|
Last Modified: February 10, 2006 |
Instructions: copy & paste & add Microsoft Common Dialog Control 6.0
you need a button and a textbox |
Snippet
Private Sub cmdsave_Click()
Dim filelocation As String
' loads save as box
commondialog1.ShowSave
filelocation = commondialog1.FileName
' append saves over file if it assists
Open filelocation For Append As #1
Print #1, text1.text
Close #1
End Sub
Private Sub cmdopen_Click()
Dim filelocation As String
' show open box
commondialog1.ShowOpen
filelocation = commondialog1.FileName
' input files into text1.text
Open filelocation For Input As #1
Do Until EOF(1)
Input #1, Data
text1.text = text1.text + Data + vbNewLine
EOF (1)
Loop
Close #1
End Sub
Copy & Paste
|
|
|
|