commondialog中保存或另存为的使用方法

Private Sub mnuothersave_Click()

'显示另存为对话框

   CommonDialog1.ShowSave

'设置文件的类型    CommonDialog1.Filter = "所有文件|*.*|RTF|*.RTF| 文本文件|*.txt"

'判断是否选择文件    If CommonDialog1.FileName <> "" Then

'记录并复制文件路径，其中APP指定应用程序的标题、版本、可执行文件和帮助文件的路径及方法

PATH属性用来返回和设置应用程序的当前路径。集体格式为    FileCopy App.Path & "文件名", CommonDialog1.FileName    End If End Sub