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

最新推荐文章于 2023-04-04 21:24:49 发布

转载最新推荐文章于 2023-04-04 21:24:49 发布 · 664 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

原文链接：http://www.cnblogs.com/felixfang/archive/2009/03/27/1423348.html

收录于

本文介绍了一段ASP代码，用于读取指定文件夹内的所有文件，并将文件名以XML格式返回，便于与Flex进行数据交互。代码首先创建了FileSystemObject和Folder对象，然后遍历文件夹中的每个文件，将其名称添加到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
%>