linux判断两个文件夹内容是否相同,写shell怎么判断两个文件内容是否相同?如果相同则删除文件,如果不同则提示信息!...

复制文件和文件夹,然后判断是否成功

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

先给 文件复制的,今天太晚了, 要睡了, 明天还有事,这个东西 明天补齐,现在只能复制文件

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值