//api 声明
Function ulong GetFileAttributesA(string lpFileName) LIBRARY "kernel32.dll "
FUNCTION ulong FindFirstFile(ref string lpFileName,ref s_FIND_DATA lpFindFileData) LIBRARY "kernel32.dll" ALIAS FOR "FindFirstFileA"
FUNCTION ulong FindNextFile(ulong hFindFile,ref s_FIND_DATA lpFindFileData) LIBRARY "kernel32.dll" ALIAS FOR "FindNextFileA"
FUNCTION Long FindClose ( Long hFindFile) LIBRARY "kernel32"
Function Integer GetLastError ( ) Library "kernel32"
FUNCTION ulong FindFirstFile(ref string lpFileName,ref s_FIND_DATA lpFindFileData) LIBRARY "kernel32.dll" ALIAS FOR "FindFirstFileA"
FUNCTION ulong FindNextFile(ulong hFindFile,ref s_FIND_DATA lpFindFileData) LIBRARY "kernel32.dll" ALIAS FOR "FindNextFileA"
FUNCTION Long FindClose ( Long hFindFile) LIBRARY "kernel32"
Function Integer GetLastError ( ) Library "kernel32"
//定义结构体s_find_data
global type s_find_data from structure
unsignedlong fileattribus
s_filetime creationtime
s_filetime lastaccesstime
s_filetime lastwritetime
unsignedlong filesizehigh
unsignedlong filesizelow
unsignedlong reserved0
unsignedlong reserved1
character filename[260]
unsignedlong fileattribus
s_filetime creationtime
s_filetime lastaccesstime
s_filetime lastwritetime
unsignedlong filesizehigh
unsignedlong filesizelow
unsignedlong reserved0
unsignedlong reserved1
character filename[260]