Hi,
There is a topic about obtaining the filesize on arianesoft.ca already:
func FileSize(filename$)
f$ = fopen(filename$, "r");
fseek(f$, 1, SEEK_END);
filesize$ = ftell(f$);
fclose(f$);
return (filesize$);
end;
With WIN32_FIND_DATA you can obtain the date and file size too:
struct(lpData$, WIN32_FIND_DATA);
handle$ = FindFirstFile("c:\\temp\\ *.*", &lpData$);
if(handle$ == INVALID_HANDLE_VALUE)
ShowMessage("No files found");
return(true);
end;
struct(UTC$, SYSTEMTIME);
struct(l$, SYSTEMTIME);
msg$ = "";
result$ = 1;
while(result$ > 0)
FileTimeToSystemTime(lpData.ftLastWriteTime$, &UTC$);
SystemTimeToTzSpecificLocalTime(NULL, UTC$, &l$);
msg$ = msg$ + lpData.cFilename$+" " + t.wMonth$ + "/" + l.wDay$ + "/" + l.wYear$ + " " + l.wHour$ + ":" + t.wMinute$ + "\n";
result$ = FindNextFile(handle$, & lpData$);
end;
FindClose(handle$);
ShowMessage(msg$);