专家坐堂-帮我想想这个逻辑Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  帮我想想这个逻辑  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10362)

--  作者：blackzhu
--  发布时间：2011/6/1 17:54:00
--  帮我想想这个逻辑

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

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

--  作者：blackzhu
--  发布时间：2011/6/1 20:22:00
--
整明白了,自己绕进去了.想通了.