Code Snippets

Visual Basic Source Code

Welcome to Dream.In.Code
	Become a VB Expert! Join 300,309 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 2,081 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB Expert

Open & Saving .txt files

how to open and save text files

Submitted By: pal121

Actions:

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

Comments
karlamohan 2008-07-26 05:51:12
database in MSAccess has been connected I want to open a document in wordpad format. the file address is in a field of access. Private Sub Form_Load() Set DB = DBEngine.OpenDatabase("C:\Documents and Settings\madhu\My Documents\dbdbase.mdb") Set RS = DB.OpenRecordset(" Select * from tblBdata ") MsgBox "Database connected" Call Disp End Sub Private Sub Disp() txtStNo.Text = RS!stno txtName.Text = RS!Name txtDesgn.Text = RS!desgn txtbiodn.text = Rs!biodtfn End Sub
akhileshbc 2008-09-28 04:20:29
Append means adding the new data to the end of the file. Output means, replacing the whole textfile with the new data. :)
akhileshbc 2008-10-01 01:12:58
The loop can be something like this also: While Not EOF(1) Line Input #1, Data Text1.Text=Text1.Text & Data & vbNewLine Wend
paperclipmuffin 2009-04-17 01:36:10
I cant get it to work for me. When i run, it crashes and highlights the "commondialog1.showsave" saying "object required". Help anyone?
binyamin 2009-07-01 15:39:51
You just need to add this control and put it somewhere on your form: 1) Goto Project --> Components . . . 2) Scroll down and make sure Microsoft Common Dialog control 6.0 (SP6) is checked. 3) Click OK 4) This will add the CommonDialog control to your to your toolbar. 5) Find the icon for CommonDialog. It looks kinda like a page from a Powerpoint presentation or old radio. It will be outlined in black. 6) Once you locate it, add one to your form. It will not show up as an icon when you run your program, but it will allow you to open up a saveas window, etc. 7) Rerun your program. It should work now. Hope this helps!