文件复制操作，如何显示某个文件复制失败，

kisyan · 发表于 2010-7-27 23:23:12

本帖最后由 kisyan 于 2010-7-27 23:25 编辑

$usr = IniReadSection ("copy.ini", "文件")
$l = $usr[0][0]
For $i = 1 To $usr[0][0]
            $p=StringRegExpReplace(FileGetLongName($usr[$i][1]),'\\[^\\]*$', '')
            $t=StringReplace($p,"C:","c:\RECYCLER")
            DirCreate($t)
            $c = FileCopy($usr[$i][1],$t,1)
            If $c = 0 Then $l = $l - 1
      Next
                     MsgBox(0,"提示","一共复制了"&$l&"个文件")

代码是论坛里搜索到的请各位高手帮忙看看

kisyan · 发表于 2010-7-27 23:46:52

没人来看看吗？

C.L · 发表于 2010-7-27 23:47:24

回复 1# kisyan

FIleCopy（）成功复制返回1，失败返回0

$usr = IniReadSection("copy.ini", "文件")
$l = $usr[0][0]
For $i = 1 To $usr[0][0]
        $p = StringRegExpReplace(FileGetLongName($usr[$i][1]), '\\[^\\]*$', '')
        $t = StringReplace($p, "C:", "c:\RECYCLER")
        DirCreate($t)
        $c = FileCopy($usr[$i][1], $t, 1)
        If $c = 0 Then
                MsgBox (0,"复制失败",$usr[$i][1]&@CRLF&"没有成功复制")
                $l = $l - 1
        EndIf
Next
MsgBox(0, "提示", "一共复制了" & $l & "个文件")

rikthhpgf2005 · 发表于 2010-7-28 14:11:52

论坛有！你要搜

kisyan · 发表于 2010-7-28 15:05:46

谢谢大家的帮助

		自动登录	找回密码
密码			加入

[AU3基础] 文件复制操作，如何显示某个文件复制失败，

本帖子中包含更多资源

评分