易语言斩月文件搜索模块源码

系统结构:斩月_枚举单个目录的文件,斩月_枚举子目录文件,斩月_列出所有子目录,斩月zc_文件搜索,FileTimeToVariantTime,VariantTimeToFileTime,字节数组_到文本,文本_取路径,FindFirstFile,FindNextFile,FindClose,lstrcpyn_字节型,PathRemoveFileSpec,VariantTimeToSystemTime,SystemTimeToVariantTime,FileTimeToLocalFileTime,lstrcpyn,FileTimeToSystemTime,SystemTimeToFileTime,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 斩月_枚举单个目录的文件
           |  |
           |  |------ 斩月_枚举子目录文件
           |  |
           |  |------ 斩月_列出所有子目录
           |  |
           |  |------ 斩月zc_文件搜索
           |  |
           |  |------ FileTimeToVariantTime
           |  |
           |  |------ VariantTimeToFileTime
           |  |
           |  |------ 字节数组_到文本
           |  |
           |  |------ 文本_取路径
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   FindFirstFile
           |  |
           |  |---[dll]------   FindNextFile
           |  |
           |  |---[dll]------   FindClose
           |  |
           |  |---[dll]------   lstrcpyn_字节型
           |  |
           |  |---[dll]------   PathRemoveFileSpec
           |  |
           |  |---[dll]------   VariantTimeToSystemTime
           |  |
           |  |---[dll]------   SystemTimeToVariantTime
           |  |
           |  |---[dll]------   FileTimeToLocalFileTime
           |  |
           |  |---[dll]------   lstrcpyn
           |  |
           |  |---[dll]------   FileTimeToSystemTime
           |  |
           |  |---[dll]------   SystemTimeToFileTime

调用的DLL命令:

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

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

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

.DLL命令 lstrcpyn_字节型, 整数型, "kernel32", "lstrcpynA"
    .参数 lpString1, 字节型, 传址
    .参数 lpString2, 字节型
    .参数 iMaxLength, 整数型

.DLL命令 PathRemoveFileSpec, 整数型, "shlwapi.dll", "PathRemoveFileSpecA"
    .参数 pszPath, 文本型

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

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

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

.DLL命令 lstrcpyn, 文本型, "kernel32", "lstrcpynA"
    .参数 lpString1, 字节型, 数组
    .参数 lpString2, 字节型
    .参数 iMaxLength, 整数型

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

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