[ASP] 使用asp读取指定文件夹的文件列表(返回xml)

以下是读取指定文件夹的所有文件（不包括子文件夹）的asp代码，返回的是xml便于和flex交互

'创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
'创建一个Folder对象
foldername=server.mappath("服务器下文件夹./")
Set MyFolder=MyFileObject.GetFolder(foldername)

str="<?xml version='1.0' encoding='utf-8'?>"& vbcrlf & "<root>" & vbcrlf
'先放入两个原始数据，防止只有一条记录与flex交互有bug产生（前提是文件夹中至少有一条记录，不然仍然有bug）
str = str & "<file>" & vbcrlf
str=str & "<name>henhenhahi</name>" & vbcrlf
str = str & "</file>" & vbcrlf
str = str & "<file>" & vbcrlf
str=str & "<name>henhenhahi,too</name>" & vbcrlf
str = str & "</file>" & vbcrlf
'循环显示其中文件
i=0
For Each thing in MyFolder.Files
str = str & "<file>" & vbcrlf
str=str & "<name>" & thing & "</name>" & vbcrlf
str = str & "</file>" & vbcrlf
i=i+1
Next
str=str & "</root>" & vbcrlf
response.write str
%>