COMMONDIALOG

[shan1]

I HAVE A TEXTBOX AND TWO COMMAND BUTTONS.
I AM PLACING A COMMONDIALOG CONTROL.
ON PRESSING THE FIRST BUTTON I MUST POPULATE
THE TEXT BOX WITH A TXT FILE(WHICH IAM ABLE TO DO).NEXT I WILL CHANGE THE TEXT FILE RETRIEVED IN THE TEXT BOX AND NOW I MUST PRESS THE SECOND BUTTON WHICH SHOULD SAVE THESE CHANGES.
SO NEXT TIME WHEN I RETREIVE I MUST SEE THE CHANGES I HAVE MADE.

[Aaron Young]

Try not to use all caps, it makes it hard to read as the words start to merge..

Try this:

Private Sub cmdLoad_Click()
Dim I As Integer
On Error GoTo UserCancel
With CommonDialog1
.DialogTitle = "Select Text File to Load.."
.Filter = "Text Files|*.txt"
.CancelError = True
.ShowOpen
I = FreeFile
Open .FileName For Input As I
Text1 = Input(LOF(I), I)
Close I
End With
UserCancel:
End Sub

Private Sub cmdSave_Click()
Dim I As Integer
On Error GoTo UserCancel
With CommonDialog1
.DialogTitle = "Save Text File As.."
.Filter = "Text Files|*.txt"
.CancelError = True
.DefaultExt = ".txt"
.ShowSave
I = FreeFile
Open .FileName For Output As I
Print #I, Text1;
Close I
End With
UserCancel:
End Sub



------------------
Aaron Young
Analyst Programmer
aarony@redwingsoftware.com
adyoung@win.bright.net

[shan1]

Thanx .It was so simple. Sorry for the CAPS!!!!