主题：帮我想想这个逻辑

 If FileSys.FileExists("d:\My Documents\计调平台文件存放夹" & "\" & e.form.Controls("DropBox1").Value)Then

        Messagebox.Show("文件已经存在,是否覆盖","提示",MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        FileSys.DeleteFile("d:\My Documents\计调平台文件存放夹" & "\" & e.form.Controls("DropBox1").Value,2,2)

        FileSys.CopyFile(e.form.Controls("DropBox1").Value,"d:\My Documents\计调平台文件存放夹" & "\" & e.form.Controls("DropBox1").Value)

    Else

        FileSys.CopyFile(e.form.Controls("DropBox1").Value,"d:\My Documents\计调平台文件存放夹" & "\" & e.form.Controls("DropBox1").Value)

    End If

End If

判断有没有这文件,如果有同名文件存在问要不要覆盖,点是我就覆盖,点否我就会产生一个新文件,如果文件不存在直接复制过去一个文件.