易语言API无递归遍历文件夹模块源码

系统结构:Test,FileTimeToVariantTime,EnumFile,EnumPath,newPath,newFile,EnumAllPath,FindFirstFile,FileTimeToLocalFileTime,FileTimeToSystemTime,SystemTimeToVariantTime,FindNextFile,FindClose,CreateFileA,CloseHandle,GetFileSize,

======接口程序集
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ Test
           |  |
           |  |
======辅助程序集
           |  |
           |  |------ FileTimeToVariantTime
           |  |
           |  |------ _GetFileSize
           |  |
           |  |
======Search
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ EnumFile
           |  |
           |  |------ EnumPath
           |  |
           |  |------ newPath
           |  |
           |  |------ newFile
           |  |
           |  |------ EnumAllPath
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   FindFirstFile
           |  |
           |  |---[dll]------   FileTimeToLocalFileTime
           |  |
           |  |---[dll]------   FileTimeToSystemTime
           |  |
           |  |---[dll]------   SystemTimeToVariantTime
           |  |
           |  |---[dll]------   FindNextFile
           |  |
           |  |---[dll]------   FindClose
           |  |
           |  |---[dll]------   CreateFileA
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   GetFileSize

调用的DLL命令:

.DLL命令 FindFirstFile, 整数型, "kernel32", "FindFirstFileA"
    .参数 lpFileName, 文本型
    .参数 lpFindFileData, WIN32_FIND_DATA

.DLL命令 FileTimeToLocalFileTime, 整数型, "kernel32.dll", "FileTimeToLocalFileTime"
    .参数 lpFileTime, FILETIME, 传址
    .参数 lpLocalFileTime, FILETIME, 传址

.DLL命令 FileTimeToSystemTime, 整数型, "kernel32.dll", "FileTimeToSystemTime"
    .参数 lpFileTime, FILETIME, 传址
    .参数 lpSystemTime, 系统时间, 传址

.DLL命令 SystemTimeToVariantTime, 整数型, "oleaut32.dll", "SystemTimeToVariantTime"
    .参数 LPSYSTEMTIME, 系统时间, 传址
    .参数 double, 日期时间型, 传址

.DLL命令 FindNextFile, 整数型, "kernel32", "FindNextFileA"
    .参数 hFindFile, 整数型
    .参数 lpFindFileData, WIN32_FIND_DATA

.DLL命令 FindClose, 整数型, "kernel32", "FindClose"
    .参数 hFindFile, 整数型

.DLL命令 CreateFileA, 整数型, , "CreateFileA", , , CreateFileA
    .参数 打开文件名, 文本型, , lpFileName，要打开的文件的名字
    .参数 访问权限, 整数型, , dwDesiredAccess，访问权限 
    .参数 共享方式, 整数型, , dwShareMode，共享方式 FILE_SHARE开头变量，0表示禁止访问
    .参数 security特性, SECURITY_ATTRIBUTES, 传址, lpSecurityAttributes，security特性信息
    .参数 创建方式, 整数型, , dwCreationDisposition，创建方式
    .参数 文件属性, 整数型, , dwFlagsAndAttributes，参见相关帮助
    .参数 从文件复制文件属性, 整数型, , hTemplateFile，参见相关帮助

.DLL命令 CloseHandle, 逻辑型, , "CloseHandle", , 关闭一个内核对象。其中包括文件、文件映射、进程、线程、security和同步对象等。涉及文件处理时，这个函数通常与vb的close命令相似。应尽可能的使用close，因为它支持vb的差错控制。注意这个函数使用的文件句柄与vb的文件编号是完全不同的  非零表示成功，零表示失败。会设置GetLastError
    .参数 对象句柄, 整数型, , 欲关闭的一个对象的句柄;

.DLL命令 GetFileSize, 整数型, , "GetFileSize"
    .参数 文件句柄, 整数型
    .参数 高阶指针, 整数型, 传址, 高阶双字的文件大小的指针，超过2G大小注意这个