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
[email protected]
[email protected]

[shan1]

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