复制文件和文件夹,然后判断是否成功
msgbox copy("c:\boot.ini", "d:\123.ini") '返回true则成功
function copy(filepatha as string, filepathb as string) as boolean
dim msg as integer
msg = vbyes
if dir(filepatha, 7) <> "" then '如果输入的路径是一个存在的文件
if dir(filepathb, 7) <> "" then msg = msgbox("文件" & filepathb & "已经存在,是否替换文件?", vbyesno, "文件已存在") '如果存在目标文件,添加存在询问语句,如果不需要就删掉
if msg = vbyes then '如果选了替换和不存在filepathb文件
if dir(filepathb, 7) <> "" then kill filepathb '如果存在filepathb,就删除filepathb文件
if dir(filepathb, 7) <> "" then '如果还存在filepathb文件(那么表示删除失败,文件被其他程序占用,覆盖也肯定失败)
msgbox filepathb & "文件正被使用,无法替换文件", 16, "复制失败" '弹出复制文件失败消息,如果不要可以删除
else
filecopy filepatha, filepathb '如果一切正常,就复制文件到目标
if dir(filepathb, 7) <> "" then copy = true '如果存在目标文件了,就说明复制成功,返回布尔值true
end if
end if
end if
end function
先给 文件复制的,今天太晚了, 要睡了, 明天还有事,这个东西 明天补齐,现在只能复制文件
◆◆
评论读取中....
请登录后再发表评论!
◆◆
修改失败,请稍后尝试