用VB打开记事本并写入数据然后保存
Dim FileName As String
CommonDialog1.ShowSave '如果你不用CommonDialog控件,就删除这一句和下面两句
If CommonDialog1.FileName = "" Then Exit Sub
FileName = CommonDialog1.FileName
Open FileName For Output As #1 '如果不用CommonDialog控件,FileName必须是全路径文件名
Print #1, a
Close #1
Dim FileName As String
CommonDialog1.ShowSave '如果你不用CommonDialog控件,就删除这一句和下面两句
If CommonDialog1.FileName = "" Then Exit Sub
FileName = CommonDialog1.FileName
Open FileName For Output As #1 '如果不用CommonDialog控件,FileName必须是全路径文件名
Print #1, a
Close #1