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