vatInputFileList = "D:\\Desktop\\文件目录\\" //目标搜索目录,使用双斜杠
vatFileType = "*.jpg"
arrayRet = File.SearchFile(vatInputFileList,vatFileType,False)
For i = 0 To Len(arrayRet)-1 Step 1
FPFileName = Left(SubStr(CStr(splice(arrayRet,i,i)),4,Len(CStr(splice(arrayRet,i,i)))),Len(CStr(splice(arrayRet,i,i)))-7)
TracePrint(FPFileName)
Next