论坛 › 『 提问交流 』 › 如何实现在复制完成后提示复制完成啊

today2004 发表于 2008-12-19 00:03:07

如何实现在复制完成后提示复制完成啊

$run = InputBox("提示","请输入一个路径","d:\bak","",400,150)
If Not FileExists($run) Then DirCreate($run)
FileCopy("temp\*.jpg",$run)
后加什么语句判断复制完成后提示复制完成啊

[ 本帖最后由 today2004 于 2008-12-19 09:47 编辑 ]

TonyW 发表于 2008-12-19 02:30:53

不知道能不能用对比文件的方式来做判断？
对比原文件的大小和新copy的文件的大小来判断？如果相等就提示，否则怎么样怎么样的。。:face (18): 小弟是超级新手。说错了不要怪我！！

大绯狼 发表于 2008-12-19 12:43:37

加个MSGBOX啊。。。。。。。。

范统.贾 发表于 2008-12-19 17:50:01

2楼的方法貌似不错。
如果后面加MSGBOX，是复制完成后才执行MSGBOX，还是刚执行完上一语句，开始复制的时候就MSGBOX呢？
要有FILECOPYWAIT就好了，像RUNWAIT一样。哈哈。

78391493 发表于 2008-12-19 19:19:28

$copy = FileCopy("temp\*.jpg",$run)
if $copy = 1 then
msgbox(0,"复制","复制成功")
else
msgbox(0,"复制","复制失败")
endif

sanhen 发表于 2008-12-19 19:37:32

直接调用系统的复制对话框不就行了？

sht123960585 发表于 2008-12-19 19:57:31

怎么调用系统复制对话框？？？？

笨笨℃ 发表于 2008-12-20 12:26:04

原帖由 78391493 于 2008-12-19 19:19 发表 http://www.autoitx.com/images/common/back.gif
$copy = FileCopy("temp\*.jpg",$run)
if $copy = 1 then
msgbox(0,"复制","复制成功")
else
msgbox(0,"复制","复制失败")
endif

我喜欢这样写

If FileCopy("a.jpg",$run)=1 Then
        MsgBox(0,"","yes")
Else
        MsgBox(0,"","no")
EndIf

查看完整版本: 如何实现在复制完成后提示复制完成啊