COMPILER_OPTIONS _case_sensitive;
program test_get_fileinfo;
const
path = "assets\";
fileName = "test.dat";
global
fileHandle;
data = 777;
result1;
begin
fileHandle = fopen(path + fileName, "w");
fwrite(offset data, sizeof(data), fileHandle);
fclose(fileHandle);
result1 = get_fileinfo(path + fileName);
write_int(0, 20, 20, 0, &result1);
repeat
frame;
until (scan_code != 0)
end
|