Sub Main() Dim txtOldDesignFileName As String Dim txtNewDesignFileName As String txtOldDesignFileName = "D:/roads_old.dgn" txtNewDesignFileName = "D:/roads_new.dgn" On Error GoTo Err ' 复制新文件 ' 参数 True - 覆盖已存在的新文件 ' False - 若新建的文件已存在,提示错误信息 Application.CopyDesignFile txtOldDesignFileName, txtNewDesignFileName, True On Error GoTo 0 Exit Sub Err: MsgBox Err.Description Resume Next End Sub