//获取总图库 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