randomize
Rannum = int (90000 * rND) 10000
File.FileName = Year (NOW) & DAY (NOW) & HOUR (NOW) & SECON & RANNUM & "& getExtendName (file.filename)