about rename

[door]

hi i am a beginner

i want to rename 5 sphere
i try to write a simple code,like this:

Set oRoot=ActiveSceneRoot
Set oSel=Application.Selection
For Each oItem in oSel
oItem.Name="aaa"
Next

' Output of above script:
'INFO : "aaa"
'INFO : "aaa1"
'INFO : "aaa2"
'INFO : "aaa3"
'INFO : "aaa4"

but i want their name is: aaa01,aaa02,aaa03,aaa04,aaa05

how to do that?thx:)

[steve3d]

try this:(javascript)
oRoot=ActiveSceneRoot;
oSel=Application.Selection;
for(i=0;i oSel(i).Name="aaa0"+i

so simple ha

[door]

i got it

oRoot=ActiveSceneRoot
Set oSel=Selection
Dim i
i=0
for Each oItem in oSel
oItem.Name="aaa0"&i
i=i+1
next

[door]

but still have a problem.......

if i have 100 sphere,i want their name : aaa00~aaa99
how to do this?.....

[door]

OK

oRoot=ActiveSceneRoot
Set oSel=Selection
Dim i
i=0
for Each oItem in oSel
if i<10 then
oItem.Name="aaa0"&i
else
oItem.Name="aaa"&i
end if
i=i+1
next