
RASExpress User Guide
172 CommPlete Communications Server
display("Error getting file attribute^J^M");
endif
display("Enter date to set to : ");
if getstr(buffer, len) then
if setfiledate(file_name, buffer) then getfiledate
➥ (file_name, buffer);
fdisplay("^J^MFile date is set to : %s^J^M", buffer);
else
display("^J^MError setting file date^J^M");
endif
endif
display("Enter time to set to : ");
if getstr(buffer, len) then
if setfiletime(file_name, buffer) then getfiletime
➥ (file_name, buffer);
fdisplay("^J^MFile time is set to : %s^J^M", buffer);
else
display("^J^MError setting file time^J^M");
endif
endif
display("Enter attribute to set to : ");
attribute = getint;
if setfileattr(file_name, attribute) then
attribute = getfileattr(file_name);
if attribute != -1 then fdisplay("^J^MFile attribute
➥ set to : %d^J^M", attribute);
else
display("^J^MError setting file attribute^J^M");
endif
else
display("^J^MError setting file attribute^J^M");
endif
endif
display("Enter file name to delete : ");
if getstr(file_name, len) then
if delete(file_name) then
fdisplay("^J^M%s deleted^J^M", file_name);
else
fdisplay("^J^M%s could not be deleted^J^M", file_name);
endif
endif
endproc
GETFILESIZE getfilesize(string file_name) : integer;
Gets the size of the file specified by file_name in bytes if the file is present, else -1 is
returned.
Example
See getfiledate command.
Komentáře k této Příručce