How to add index to folder name?

[Gintaras]

Macro Macro1943

Code:

Copy      Help

out
out "----- rename -----"

int i
ARRAY(str) a
GetFilesInFolder a "$desktop$\test" "" 1
a.sort(8)
for i 0 a.len
,str& s1=a[i]
,str s2 s3
,s2=s1
,s2.insert(F"{i+1}_" findcr(s2 '\')+1)
,out s2
,;ren s1 s2

Macro Macro1942

Code:

Copy      Help

out
out "----- access -----"

int i
str s2 s3
s2.expandpath("$desktop$\test\")
for i 0 1000000000
,lpstr filename=dir(F"{s2}{i+1}_*" 1); if(!filename) break
,s3=F"{s2}{filename}"
,out s3