// 弹出提示框If(MessageBox.Show("是否确定更新","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)= Windows.Forms.DialogResult.Yes) Then
...//选择“是”执行的操作
End If
// 判断文件是否存在
Imports System.IOIf(File.Exists(FileName)) Then
If(MessageBox.Show("文件已存在,要替换它吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)= Windows.Forms.DialogResult.Yes) Then
File.Delete(FileName)
Else
Exit Sub
End If
End If