易语言目录文件操作模块源码

系统结构:模块_打开文件,模块_关闭文件,模块_取文件长度,模块_读入字节集,模块_写出字节集,模块_到文件首,模块_到文件尾,模块_取当前读写位置,模块_移动读写位置,模块_取文件时间,模块_置文件时间,模块_对比文件,时间类型转换,时间比较,模块_搜索目录,归递搜索目录,模块_目录是否存在,模块_创建多级目录,模块_搜索文件,同步对比目录,删除多余,删除多余文件,复制差异,检查差异文件,CreateFile,CloseHandle,GetFileSize,RtlMoveMemory,lstrcpyn,WriteFile_,ReadFile_,FlushFileBuffers,SetFilePointer,GetFileTime,SystemTimeToFileTime,FileTimeToSystemTime,LocalFileTimeToFileTime,FileTimeToLocalFileTime,PathIsDirectory,SetFileTime,SetEndOfFile,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======文件操作接口程序集
           |  |
           |  |------ 模块_打开文件
           |  |
           |  |------ 模块_关闭文件
           |  |
           |  |------ 模块_取文件长度
           |  |
           |  |------ 模块_读入字节集
           |  |
           |  |------ 模块_写出字节集
           |  |
           |  |------ 模块_到文件首
           |  |
           |  |------ 模块_到文件尾
           |  |
           |  |------ 模块_取当前读写位置
           |  |
           |  |------ 模块_移动读写位置
           |  |
           |  |------ 模块_取文件时间
           |  |
           |  |------ 模块_置文件时间
           |  |
           |  |------ 模块_对比文件
           |  |
           |  |------ 时间类型转换
           |  |
           |  |------ 时间比较
           |  |
           |  |
======目录操作接口程序集
           |  |
           |  |------ 模块_搜索目录
           |  |
           |  |------ 归递搜索目录
           |  |
           |  |------ 模块_目录是否存在
           |  |
           |  |------ 模块_创建多级目录
           |  |
           |  |------ 模块_搜索文件
           |  |
           |  |
======目录对比程序集
           |  |
           |  |------ 同步对比目录
           |  |
           |  |------ 删除多余
           |  |
           |  |------ 删除多余文件
           |  |
           |  |------ 复制差异
           |  |
           |  |------ 检查差异文件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateFile
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   GetFileSize
           |  |
           |  |---[dll]------   RtlMoveMemory
           |  |
           |  |---[dll]------   lstrcpyn
           |  |
           |  |---[dll]------   WriteFile_
           |  |
           |  |---[dll]------   ReadFile_
           |  |
           |  |---[dll]------   FlushFileBuffers
           |  |
           |  |---[dll]------   SetFilePointer
           |  |
           |  |---[dll]------   GetFileTime
           |  |
           |  |---[dll]------   SystemTimeToFileTime
           |  |
           |  |---[dll]------   FileTimeToSystemTime
           |  |
           |  |---[dll]------   LocalFileTimeToFileTime
           |  |
           |  |---[dll]------   FileTimeToLocalFileTime
           |  |
           |  |---[dll]------   PathIsDirectory
           |  |
           |  |---[dll]------   SetFileTime
           |  |
           |  |---[dll]------   SetEndOfFile

调用的DLL命令:

.DLL命令 CreateFile, 整数型, "kernel32.dll", "CreateFileA", , 打开或创建文件，返回文件句柄
    .参数 lpFileName, 文本型, , 文件路径
    .参数 dwDesiredAccess, 整数型, , 打开方式
    .参数 dwShareMode, 整数型, , 共享方式
    .参数 lpSecurityAttributes, 整数型, , security属性
    .参数 dwCreationDisposition, 整数型, , 创建方式
    .参数 dwFlagsAndAttributes, 整数型, , 文件属性
    .参数 hTemplateFile, 整数型, , 用于复制文件句柄

.DLL命令 CloseHandle, 逻辑型, "kernel32.dll", "CloseHandle", , 关闭一个内核对象
    .参数 hObject, 整数型, , 文件句柄

.DLL命令 GetFileSize, 整数型, "kernel32", "GetFileSize", , 取出文件的长度
    .参数 文件句柄, 整数型
    .参数 尺寸大小, 整数型, 传址

.DLL命令 RtlMoveMemory, , "kernel32", "RtlMoveMemory", , 复制内存
    .参数 目的变量, 整数型, , pTo
    .参数 源, 整数型, 传址, uFrom
    .参数 尺寸, 整数型, , lSize

.DLL命令 lstrcpyn, 整数型, "kernel32", "lstrcpynA", , 取长整数型地址
    .参数 数据1, 长整数型, 传址, lpString1
    .参数 数据2, 长整数型, 传址, lpString2
    .参数 数据长度, 整数型, , iMaxLength

.DLL命令 WriteFile_, 逻辑型, "kernel32.dll", "WriteFile", , 从文件缓冲区写出数据到文件
    .参数 hFile, 整数型, , 文件句柄
    .参数 Buffer, 字节集, , 写的字节
    .参数 nNumberOfBytesToWrite, 整数型, , 写的数量
    .参数 lpNumberOfBytesWritten, 整数型, 传址, 实际写的数量
    .参数 lpOverlapped, 整数型

.DLL命令 ReadFile_, 逻辑型, "kernel32.dll", "ReadFile", , 从文件读入数据到文件缓冲区
    .参数 hFile, 整数型, , 文件句柄
    .参数 Buffer, 字节集, , 读的字节
    .参数 nNumberOfBytesToRead, 整数型, , 读的数量
    .参数 lpNumberOfBytesRead, 整数型, 传址, 实际读的数量
    .参数 lpOverlapped, 整数型

.DLL命令 FlushFileBuffers, 整数型, "kernel32", "FlushFileBuffers"
    .参数 hFile, 整数型

.DLL命令 SetFilePointer, 整数型, "kernel32.dll", "SetFilePointer", , 设置当前读写位置，返回当前指针
    .参数 hFile, 整数型, , 文件句柄
    .参数 lDistanceToMove, 整数型, , 低位偏移字节
    .参数 lpDistanceToMoveHigh, 整数型, , 高位偏移指针
    .参数 dwMoveMethod, 整数型, , 方式, 0 从头, 1 当前, 2 文件尾

.DLL命令 GetFileTime, 逻辑型, "kernel32", "GetFileTime", , 取出指定文件时间，非0表示成功
    .参数 文件号, 整数型
    .参数 创建时间, 文件时间, , UTC格式的文件时间，下同
    .参数 访问时间, 文件时间
    .参数 修改时间, 文件时间

.DLL命令 SystemTimeToFileTime, 整数型, "kernel32", "SystemTimeToFileTime", , 系统时间转换为本地时间，把系统时间转换为本地格式的文件时间，非0表示成功
    .参数 系统时间, 系统时间
    .参数 文件时间, 文件时间, , 本地格式的文件时间

.DLL命令 FileTimeToSystemTime, 整数型, "kernel32", "FileTimeToSystemTime", , 把本地格式的文件时间转换为系统时间，非0表示成功
    .参数 文件时间, 文件时间, , 本地格式的文件时间
    .参数 系统时间, 系统时间

.DLL命令 LocalFileTimeToFileTime, 整数型, "kernel32", "LocalFileTimeToFileTime", , 本地时间转换为文件时间，把本地格式的文件时间转换为UTC格式的文件时间，非0表示成功
    .参数 本地时间, 文件时间, , 本地格式的文件时间
    .参数 文件时间, 文件时间, , UTC格式的文件时间

.DLL命令 FileTimeToLocalFileTime, 整数型, "kernel32", "FileTimeToLocalFileTime", , 文件时间转换为本地时间，把UTC格式的文件时间转换为本地格式的文件时间，非0表示成功
    .参数 文件时间, 文件时间, , UTC格式的文件时间
    .参数 本地时间, 文件时间, , 本地格式的文件时间

.DLL命令 PathIsDirectory, 逻辑型, "shlwapi.dll", "PathIsDirectoryA", , 目录是否存在,存在返回真，不存在返回假
    .参数 路径文本, 文本型, , pszPath

.DLL命令 SetFileTime, 逻辑型, "kernel32", "SetFileTime", , 设置指定文件时间，非0表示成功。
    .参数 文件号, 整数型
    .参数 创建时间, 文件时间, , 本地格式的文件时间，下同
    .参数 访问时间, 文件时间
    .参数 修改时间, 文件时间

.DLL命令 SetEndOfFile, 逻辑型, "kernel32.dll", "SetEndOfFile", , 文件截断, 截断当前指针
    .参数 hFile, 整数型, , 文件句柄