7,763
社区成员
发帖
与我相关
我的任务
分享
CommonDialog1.Filter = "*.txt 文件|*.txt"
CommonDialog1.ShowOpen
Text1.Text = ""
Form1.Caption = CommonDialog1.FileName
Open Form1.Caption For Output As #1
Print #1, Text1.Text
Close #1
CommonDialog1.CancelError = True
On Error GoTo zzz
CommonDialog1.Filter = "*.txt 文件|*.txt"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1
Me.Caption = CommonDialog1.FileName
zzz: