asp实现遍历文件夹下的所有文件

关键词

asp实现遍历文件夹下的所有文件

摘要

我们这里通过遍历一个文件夹下的文件来生成一个sitemap.txt文件,代码如下：
<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fsd=fso.getfolder(server.mappath("../test/"))
Set fs=fso.openTextFile(Server.mappath("/sitemap.txt"),8,true)
Set fsfiles=fsd.Files
For Each fsfile In fsfiles
   tmpPath="http://www.test.com/test/" & fsFile.name
   fs.writeLine tmpPath
Next
response.write "<p>Create Sitemap.txt Successfully !"
set fsfiles=nothing
set fs=nothing
set fsd=nothing
set fso=nothing
%>

我们这里通过遍历一个文件夹下的文件来生成一个sitemap.txt文件,代码如下：
<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fsd=fso.getfolder(server.mappath("../test/"))
Set fs=fso.openTextFile(Server.mappath("/sitemap.txt"),8,true)
Set fsfiles=fsd.Files
For Each fsfile In fsfiles
   tmpPath="http://www.test.com/test/" & fsFile.name
   fs.writeLine tmpPath
Next
response.write "<p>Create Sitemap.txt Successfully !"
set fsfiles=nothing
set fs=nothing
set fsd=nothing
set fso=nothing
%>