[b]-=Dima=-[/b], а действительно, зачем ты консоль-то прикрутить пытался? Разве так не проще?[code:1]Add(Edit,4165625,238,126) {
Left=65
Top=20
Width=235
Text="C:d"
}
Add(Button,16675837,98,189)
{
Left=65
Top=45
Caption="Rename"
link(onClick,1264085:doSearch,[])
}
Add(BitBtn,7606549,98,126)
{
Left=300
Top=20
Width=20
Caption="..."
Flat=1
link(onClick,11403173:doBrowse,[])
}
Add(Browse,11403173,168,126)
{
link(onBrowse,4165625:doText,[])
}
Add(FileSearch,1264085,168,189)
{
SubDir=1
link(onSearch,12515068:doValue,[])
link(Dir,4165625:Text,[(181,174)(244,174)])
}
Add(Memory,12515068,231,189)
{
link(onData,502510:doPart,[])
}
Add(FormatStr,3319796,434,252)
{
DataCount=3
Mask="%1%2%3"
link(onFString,13769776:doMove,[(476,258)(476,348)(221,348)(221,300)])
link(Str1,13827829:Value,[(440,216)(377,216)])
link(Str2,7386028:Value,[(447,216)(566,216)])
link(Str3,12911794:Value,[(454,242)(415,242)(415,294)(370,294)])
}
Add(FilePart,502510,294,189)
{
ExtPoint=0
link(onPath,13827829:doValue,[(355,195)(355,153)])
link(onExt,12911794:doValue,[(352,209)(352,258)])
}
Add(Memory,13827829,371,147)
{
link(onData,12422347:doNext,[])
}
Add(Counter,12422347,434,147)
{
Max=1000
link(onNext,6882046:doStrCat,[])
}
Add(FileTools,13769776,231,294)
{
link(FileName,12515068:Value,[])
}
Add(StrCat,6882046,497,147)
{
Str1="00"
link(onStrCat,7386028:doValue,[])
}
Add(Memory,7386028,560,147)
{
}
Add(Memory,12911794,364,252)
{
link(onData,3319796:doString,[])
}
[/code:1]
[b]Alexanderpa[/b], ты это хотел?

PS: а вообще лично я для таких целей Total Commander использую - там инструмент группового переименования достаточно мощный, чтобы самому заморачиваться :D