maybe you can give kixtart's imbedded dir() and copy command a try ...

code:

---

break on

$sourcedir = "m:\dir1"
$targetdir = "m:\dir2"
$newext = ".new"

$sourcefile = dir("$sourcedir\*.*")

while @error = 0

 if $sourcefile

  if (getfileattr("$sourcedir\$sourcefile") & 16) = 0

   copy "$sourcedir\$sourcefile" "$targetdir\$sourcefile$newext"

  endif

 endif

 $sourcefile = dir()

loop

exit

---

-Shawn

[This message has been edited by Shawn (edited 07 June 2001).]

I've tried this script for fun. may be it answers your needs.

break on cls
cls

;---------- variables
;
$dirsrc = "c:\dir_src\" ; source directory
$dirdst = "c:\dir_dst\" ; destination directory
$filename = "new" ; new filename
$count = 1 ; counter
$extension= ".kix" ; new extension filename

;---------- create files list collect.txt
;
del c:\kixtart\collect.txt ; if exist
shell "%comspec% /c dir /b " + $dirsrc + " >> c:\kixtart\collect.txt"

;---------- start read files list
del $dest + "*.*" ; empty the destination directory
if open (1, "c:\kixtart\collect.txt", 2) = 0
$readfile = readline (1)

;---------- start copy / rename
while @error = 0

$1ST = LTRIM(SUBSTR(@time, 1, 2)) ; hour
$2ND = LTRIM(SUBSTR(@time, 4, 2)) ; minute
$3RD = LTRIM(SUBSTR(@time, 7, 2)) ; second
$number = $1ST + $2ND + $3RD ; time for filename

copy $dirsrc + $readfile $dirdst + $filename + $number + $count + $extension ; action

$count = $count + 1
$readfile = readline (1)
loop
;---------- end copy /rename

close (1)
endif
;
;

Happy test
PhilV

hum ... error :

;---------- start read files list
del $dest + "*.*" ; empty the destination directory

replace with :

;---------- start read files list
del $dirdst + "*.*" ; empty the destination directory

sorry.
PhilV