用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