Clipper Unique Filename

[fmoore0001]

Guys, anyone have a routine for creating a truly unique file name in Clipper 5.2e. The one my clients are using on occasion creates a file name that is NOT unique.

Frank

 

[sduraiappan]

I think u want to create temporary work files.

TEMPPRN := "TEMP"+SUBSTR(TIME(),7,2)+SUBSTR(TIME(),4,2)+".PRN"
TEMPDBF := "TEMP"+SUBSTR(TIME(),7,2)+SUBSTR(TIME(),4,2)+".DBF"

This is useful to create unique file names in a network environment.

S.Durai.

 

[Bozz]

The above will only create 9999 files.
You could also add the code below in case the file already exists:

TEMPDBF:="TEMP"+SUBS(TIME(),7,2)+SUBS(TIME(),4,2)+".DBF"
do while file(TEMPDBF)
TEMPDBF:="TEMP"+SUBS(TIME(),7,2)+SUBS(TIME(),4,2)+".DBF"
enddo Ian Boys
DTE Systems Ltd