/* Rename Torrent files, remove unwanted characters like [] and + */
'@echo off'call RxLoadLib 'SysFileTree', 'SysLoadFuncs', 'RexxUtil'
call SysFileTree DIRECTORY()||'*.torrent', 'file', 'OF'
renamed = 0
do i = 1 to file.0
fname = strip( translate( file.i, '', '[]+' ) ) /* Remove characters. Adjust to your preference if nedded */
if fname \= file.i then do
Say 'Renaming "'||filespec( 'N', file.i )||'" to "'||filespec( 'N', fname )||'"'
'@rename "'||file.i||'" "'||filespec( 'N', fname )||'"'
if rc \= 0 then
say 'failed!!!'
else renamed = renamed + 1
end /* do */
end /* do */
Say renamed 'of' file.0 'files has been renamed.'
Return 0
/* load Libraries */
RxLoadLib: Procedure
If RxFuncQuery( ARG(1) ) \= 0 Then do
call RxFuncAdd ARG(2), ARG(3), ARG(2)
interpret 'If '||ARG(2)||'() \= 0 Then Return 1'
end
Return 0
---
//Jan-Erik