以下是读取指定文件夹的所有文件(不包括子文件夹)的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
%>