PureBasic Forums - English

Posted: **Sat Jun 23, 2007 9:32 am**

Finds a new filename suitable for a temporary file.

#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

Posted: **Sun Nov 22, 2009 11:53 am**

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

Correct code wrote:Result = Temp + #APPCODE + Str(ElapsedMilliseconds()) + Str(C) + ".tmp"

Better 29 month later than never

PureBasic Forums - English

Temp file generator

Temp file generator

Re: Temp file generator