安卓按键精灵脚本-复制图片函数

Function 复制图片(n)
    dim 总行 = file.linesnumber(总数目) '总数目
    dim 行 = File.Read(记录)'发布记录
   For n
    If CInt(行) < CInt(总行) Then 
        dim i = File.ReadLine(总数目, CInt(行))'总行数的第几行
        Delay 800
        Call FileEx.CopyFile("/storage/emulated/0/DCIM/w1/" & i & ".jpg", "/storage/emulated/0/DCIM/w2/" & i & ".jpg")
        msg "转移图片" & i    
        Call File.Write(图片发布记录, CInt(行) + 1)
    Else 
        Msg2 "图片s素材用完了", 3
        TracePrint  "材用完了"
        EndScript         
    End If
Delay 900
Next
End Function