fso+ recursively generate file list (XML)

This XML document was originally generated to develop an FTP search, and later because there was no data reference to how to search for XML documents, and give up. The most important of these is the recursive algorithm. The file list is generated quickly. This program can be used to generate playlists and things like that. Require the FSO component support for IIS. Generate an XML document similar to the following
<?xml version= "1.0" encoding= "gb2312"?>
<ftp ip= "10.1.228.228" >
<dir path= "Game" >
<dir path= "Chinese Paladin 2 (Save)" >
<file size= "346294" >complete_camel.rar</file>
<file size= "1886286" >complete_funlove.rar</file>
</DIR>
</DIR>
</ftp>
Make_file_list.asp
<% @LANGUAGE = "VBSCRIPT" codepage= "936"%>
<%
'######################################'
' # # Copyright (C) 2003 Drunk Rain Indus All rights reserved. ##'
' # # Powered by Drunk Rain Indus # '
' # # http://btyz.51web.cn/# #
' # # winterfire@163.com # #
'######################################'
Dim Objfo,objf,objaf,objfxml
Set Objfo=createobject ("Scripting.FileSystemObject") ' Object

Set Objfxml=objfo.opentextfile ("G:my documentshttppersonal worksftp_searchftp.xml", 2) ' Open file
Objfxml.writeline ("<?xml version=" "1.0" "encoding=" "gb2312" "?>")
Objfxml.writeline ("<ftp ip=" "10.1.228.228" ">")
Call Xml_list ("F:") ' Start list
Objfxml.writeline ("</ftp>")
Response.Write ("List is ok!") List successful
Function xml_list (dirname)
Set Objfs=objfo.getfolder (dirname)
Set Objasd=objfs.subfolders
For each onedir in OBJASD
Strfdname=trim (Onedir.name)
' The folders listed below are not generated in the list (System files or hidden files)
If strfdname<> "Config.msi" EQV strfdname<> "recycled" EQV strfdname<> "RECYCLER" EQV > "System Volume Information" Then