从文件夹中的所有XML文件中删除Leading WhiteSpaces

Question

我想修剪文件夹中XML文件的所有前导空格。 我有这个脚本，但是带有空格的文件名是修剪的。

Set objFSO = CreateObject("Scripting.FileSystemObject")
strFolderName = objFSO.GetParentFolderName(Wscript.ScriptFullName)
Set objFolder = objFSO.GetFolder(strFolderName)
Set colFiles = objFolder.Files
For Each objFile in colFiles
  objFSO.MoveFile strFolderName + "\" + objFile.Name , strFolderName + "\" + 
    Replace(objFile.Name," ", "")
Next

我想修剪文件中的空间。

<test>
<item/>
<item/>
<item/>
</test>