VB6 How to save txt file
if you have any issue, please contact me from; https://opensourceprojects.org/qa
1 2 3 4 5 6 7 8 9 10 11 12 | CommonDialog1.CancelError = True On Error GoTo Son CommonDialog1.DialogTitle = "save" CommonDialog1.Filter = "text file(*.txt)|*.txt" CommonDialog1.FileName = "xx" CommonDialog1.ShowSave Open CommonDialog1.FileName For Append As #1 Print #1, Text1.Text Close #1 MsgBox "Sucess",VbInformation,"accept" |