Function xml_list(DirName)
set objFS=objFo.GetFolder(DirName)
set objASD=objFS.SubFolders
For Each OneDir in objASD
strFdName=Trim(OneDir.Name)
'下面所列的文件夾不生成在列表中（系統文件或者隱藏文件）
If strFdName>"Config.Msi" EQV strFdName>"RECYCLED" EQV strFdName>"RECYCLER" EQV strFdName>"System Volume Information" Then
OneDirName=xml_format(OneDir.Name) '對進行轉義
objFxml.WriteLine("DIR path="""OneDirName""">") '生成DIR path="文件夾">/DIR>
SDirName=DirName"\&;OneDir.Name '下一個遞歸的地址
Call xml_list(SDirName) '調用遞歸
objFxml.WriteLine("/DIR>")
End If '結束判斷
Next
set objSF=objFS.Files
For Each OneFile in objSF '列出文件
objFxml.WriteLine("file size="""OneFile.size""">"OneFile.Name"/file>") '生成file>文件名/file>
Next
End Function
'去掉XML不允許的字符
Function xml_format(strDirName)
strDirName=Replace(strDirName,"","") '把半角的轉化為
xml_format=strDirName
End Function
%>
