MakeUniqueFilename

MakeUniqueFileName checks to ensure the provided file name aFilename is unique.

If the name is not unique to one that already exists, it will add a number to the end of the filename portion, forcing it to be unique.

Declaration: Function MakeUniqueFilename(aFilename : string) : string

An example.

procedure OnMapEvent(var Value:Variant);
begin
  Value := MakeUniqueFilename(Source.FileCon.CurrentFilename);
end;

Another example you can test.

procedure ScriptEvent (var Value : variant);
var
  vFileName: string;
begin
  vFileName := 'C:\ProgramData\_Flow\Temp\Test_UniqueFileName.txt';
  LogInfo('Initial file name:' + vFileName);
  vFileName := MakeUniqueFilename(vFileName);
  LogInfo('Unique file name:' + vFileName);
  SaveToFile(vFileName, vFileName);
end;