安卓按键精灵-获取全部图片并从1开始命名

Function 获取总素材()
    Dim FileArr = ShanHai.ScanPathEx(总素材)'获取总素材的文件名
    Dim Filenumber =UBound(FileArr)+1'获取总素材的总行数
    For Each v In FileArr
        Dim Filename=shanhai.GetFileName(v)
        Call File.WriteLine (图片名列表,1,Filename) 
        //zm.FileWrite 图片名列表,Filename
        TracePrint shanhai.GetFileName(v)
    Next
    dim 行数 = file.linesnumber(图片名列表)
    TracePrint 行数
    For i = 行数 To 1 Step -1 
        TracePrint "获取总素材" & i 
        Call File.WriteLine (图片名总数,1,i) 
    Next
End Function

简单版

Function 获取总素材()
    Dim FileArr = ShanHai.ScanPathEx(总素材)'获取总素材的文件名
    Dim Filenumber =UBound(FileArr)+1 '获取总素材的总行数
    TracePrint Filenumber
      For i = CInt(Filenumber) To 1 Step -1 
        TracePrint "获取数字" & i 
        Call File.WriteLine (图片名总数,1,i) 
    Next
End Function