请教如何用SaveAs把文件保存到自己想要的文件名和文件夹

'错误处理
                        On Error Resume Next
                        
                        '设置标准对话框
                        With comDlg
                            .DialogTitle = "保存文本文件"
                            .Filter = "文本文件(*.dwt)|*.dwt|所有文件(*.*)|*.*"
                            .InitDir = "C:\"
                            .DefaultExt = "dwt"
                            .ShowSave
                        End With
                        doc1.SaveAs???
                        ?