1. make a Textbox.
2. make a commonDialog and name it CD.
3. make a button. The caption is Save.
4. Double click Save then type that :
Finish...
SPECIAL THANKS TO Arcady FOR THE TUTORIAL
-k0j0e
2. make a commonDialog and name it CD.
3. make a button. The caption is Save.
4. Double click Save then type that :
- Code:
Private Sub cmd1_Click()
On Error GoTo errhandler
With CD
.DialogTitle = "Where To Save?"
.Filter = "Text Files (*.txt)|*.txt"
.DefaultExt = "*.txt"
.CancelError = True
.ShowSave
End With
Open CD.FileName For Output As #1
Print #1, Text1.Text
Close #1
Exit Sub
errhandler:
Exit Sub
End Sub
Finish...
SPECIAL THANKS TO Arcady FOR THE TUTORIAL
-k0j0e