按键精灵_获取图库总数函数封装

//获取总图库
Import "zm.luae"
Import "ShanHai.lua"

Dim all_pic_path="/sdcard/lmxy/all_pic/"  //图库路径
Dim pic_total_txt="/sdcard/lmxy/pic_total_txt.txt"         //图片总数存放文本
TracePrint Get_all_pic(all_pic_path)

Function Get_all_pic(path)
    Dim starttime = TickCount()	
    Dim FileArr= ShanHai.ScanPath(path)//获取目录所有文件
    Dim Filenumber =UBound(FileArr)+1       //统计数组总数
    //Call zm.FileWrite(pic_total_txt,Filenumber)//覆盖写入图片总数到文本    
    TracePrint "耗时："&(TickCount()-starttime)
    zm.Delay(50,100)
    Get_all_pic = Filenumber
    
End Function