Re: replace text in FolderItem names recursively

Hi again,
I wrote that as a workaround, but it pops up OutOfBounds exception
when trying to write to array element 0

Sub RenameFolder(folder as FolderItem, oldtext as string, newtext as
string)
  // replace some string with another string in folder contents

  Dim i as Integer
  dim Changes as Integer
  dim Filenames() as String

  If folder.directory then
    if folder.count > 0 then
      Changes = 0
      For i=1 to folder.count
        if instr(0, folder.TrueItem(i).name, oldtext) > 0 then
          Filenames(Changes) = folder.TrueItem(i).name
          Changes = Changes + 1
        end if
      next
      for i = 0 to Changes
        Folder.TrueChild(Filenames(i)).Name =
replaceAll(Folder.TrueChild(Filenames(i)).Name, oldtext, newtext)
      next
    end if
    folder.name=replaceAll(folder.name, oldtext, newtext)
  else
    folder.name=replaceAll(folder.name, oldtext, newtext)
  end if
End Sub

any suggestions?