PocketMatrix

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$);

That worked!
Thanks for all your help.

BTW, I tried ordering the Pro version just now, but had a lot of trouble with esellerate. Kept asking for cookies for PayPal, but no matter what things I fiddled with on the browser and firewall -- it didn't want to work. Most annoying: I don't have that problem with other sites -- gave up in the end.

I'll try again some other day.

cheers,
RdR