请问怎么用SaveAs把文件保存到自己想要的文件名和文件夹
必入这样的话怎么写?

VB code

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