-
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.
-
Try not to use all caps, it makes it hard to read as the words start to merge..
Try this:
Code:
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]
-
Thanx .It was so simple. Sorry for the CAPS!!!!