Temp file generator

[Trond]

Finds a new filename suitable for a temporary file.

Code: Select all

#APPCODE = "myapp"

Procedure.s NewTempFilename()
  Protected Temp.s = GetTemporaryDirectory()
  Protected C.l
  Protected Result.s
  For C = 0 To 255
    Result = #APPCODE + Str(ElapsedMilliseconds()) + Str(C) + ".tmp"
    If FileSize(Result) = -1
      ProcedureReturn Result
    EndIf
  Next
EndProcedure

Procedure FinishTempFilename(Filename.s)
  ProcedureReturn DeleteFile(Filename)
EndProcedure

[c4s]

A little side note... You get but aren't using the temporary directory so better use the following:

Result = Temp + #APPCODE + Str(ElapsedMilliseconds()) + Str(C) + ".tmp"

Better 29 month later than never