Subj : Re: renaming 4000+ files
To   : All
From : Jonathan de Boyne Pollard
Date : Wed Mar 27 2002 09:14 pm

From: Jonathan.de.Boyne.Pollard@f3.n342.z1.cereal.mv.com (Jonathan de Boyne 
Pollard)
Subject: Re: renaming 4000+ files

From: Jonathan de Boyne Pollard <J.deBoynePollard@tesco.net>

ML> I have a lot (4000+) files with the naming pattern "randomname.etn"
ML> I would like to rename them to the patern "name****.etn" where **** is a 4
ML> digit number, in sequence.

Using 4NT :

        set n=0
        for %f in ( *.etn ) ( ren "%f" name%@format[04,%n].* & set
n=%@eval[%n+1] )

Using REXX :

        call RxFuncAdd 'SysFileTree','rexxutil','SysFileTree'
        call RxFuncAdd 'SysMoveObject','rexxutil','SysMoveObject'
        rc = SysFileTree("*.etn","files","BO")
        do i = 1 to files.0
                targetname = 'name'||translate(format(i,4),'0',' ')||'.etn'
                error = SysMoveObject(files.i, targetname)
                if error \= 0 then
                        say 'Error' error 'renaming "'files.i'" to
"'targetname'"'
        end
--
|Fidonet:  Jonathan de Boyne Pollard 1:342/3
|
| Origin: The Cereal Port BBS (603)899-3335 199.125.78.133 (1:132/152)


---
 # Origin:  (1:132/152.4)
 * Origin: Baddog BBS (1:218/903)

.