使用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
%>