Here Darrell,

Give this script a try.
It will give a unique name pre-pended to each file plus the current name.

I highly recommend using YYYY-MM-DD as the sorting is much better using that method.

This code will give it the following type of output.

Original file name: computers.txt

It will place YYYY-MM-DD_HHMMSS_ for each file
Then it will add a random number after the date/time
The resulting file name would be something like this.

2006-04-13_003307_181_computers.txt
 
There are no checks in place to verify if the source or destination exist.
It does not take into account any other type of possible file copy errors.

You supply the SOURCE, FILE-TYPE, DESTINATION and as long as
there are no issues preventing the copy it should work fine.
If you run it again you will have duplicate files with only the pre-pended name being different (the same as the DirPlus would do)
 
Break On
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('NoMacrosInStrings','On')
 
Dim $Count
$Count = CopyFileToNewName('C:\A\AD','*.txt','C:\TEMP\')
'Copied ' + $Count + ' files to the destination folder.' ?
 
Function CopyFileToNewName($Source,$Type,$Destination)
  Dim $Index,$File,$Seed,$TmpName,$TmpRnd
  $Seed = SRND(@Ticks)
  $Index = 0
  $File = Dir($Source+'\'+$Type)
  $TmpName = Trim(Join(Split(@DATE,'/'),'-'))+'_'+Trim(Join(Split(@TIME,':'),''))
  While @ERROR = 0
    If Not (GetFileAttr($File) & 16)
      $TmpRnd = RND(@MSecs)
      Copy $File $Destination+$TmpName+'_'+$TmpRnd+'_'+$File
      $Index = $Index + 1
    EndIf
   $File = Dir()
  Loop
  $CopyFileToNewName=$Index
EndFunction