主题：文件保存提示

Dim Book As New XLS.Book(ProjectPath & "Attachments\螺纹钢质量证明书.xls")
Dim fl As String = Tables("质量证明书").Current("尺寸") & "-" & Tables("质量证明书").Current("牌号") & "-" & Tables("质量证明书").Current("长度") & ".PDF"
Book.Build() '生成细节区
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "PDF文件|*.PDF" '设置筛选器
dlg.FileName = fl
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Book.SaveToPDF(dlg.FileName) '保存为PDF文件
   
    Dim Proc As New Process '打开PDF文件
    Proc.File = dlg.FileName
    Proc.Start()
End If

保存时有相同的文件名出现提示对话筐代码怎样写？