(

string filename)

Description:

Creates file and opens it for writing


Parameters:
filename	Name of new file

procedure CreateLogFile(var Boolean createf)
BEGIN
  string 255 tstr;
  
  if (createf) then begin 
    tstr = "RenewCOMn" & CurrentDate & ".log";
    CreateFile(tstr); 
    createf = false;
  end;
  RETURN;
END;


Related topics:

««