用VB打开记事本并写入数据然后保存

用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