CHRTRAN(TIME(1), ":.", "")
DTOS(DATE())+CHRTRAN(TIME(1), ":.", "")
yyyymmddhhmmssmsms
which sorts better meets more Y2K compliant date configuration. It also makes sorting cleaner by year (if need that sort of thing). e.g., at the time of writing this: 2001042510112630
* Create 100 unique files For ji = 1 To 100 lcFile=DToS(Date())+Chrtran(Time(1),":.","")+".txt" * check for unique file Do While File(lcFile) lcFile=DToS(Date())+Chrtran(Time(1),":.","")+".txt" EndDo lcFileVal = "This is file " + lcFile StrToFile(lcFileVal, lcFile) EndForI ran this loop a couple dozen times and it took an average of 1.5 seconds.