请教，将文件夹名，写入xml里！

zz999

有个头大活，一个文件下有200多个子文件夹，有顺序的

people1,people2到people280

每个文件夹下一个xml文件，固定名 main.xml

每个xml里的前几行里会有一句

<identifie><![CDATA[XXXXX]]></identifie>

我就是想把文件夹名字替换进去，变成

<identifie><![CDATA[people1]]></identifie>

zz999

或者把所有的文件重命名，并写入xml
请教跟该怎么做！

fuldho

For $i = 1 To 280
        $aFileList = "D:\123\" & "people" & $i & "\main.xml"
        If FileExists($aFileList) Then
                $Str = FileRead($aFileList)
                $sR = StringRegExp($Str, 'CDATA\[(.*?)\]', 3)
                $Str = StringRegExpReplace($Str, $sR[0], "people1")
                FileWriteLine($aFileList & '.txt', $Str)
        EndIf
Next