asp 获取当前目录所有文件名称

<%= Mid (request.ServerVariables("Script_Name"),InStrRev  
(request.ServerVariables("Script_Name"),   "/")+1) %>

<%
Set sysFSO = Server.CreateObject("Scripting.FileSystemObject")

Set sysFolder = sysFSO.GetFolder(Server.MapPath("./"))
Set sysFiles =
sysFolder.Files
If sysFiles.Count <> 0 Then
For Each sysFile In
sysFiles
Response.Write sysFile.Name & "<br>"
Next
End If 

%>

由于今天需要处理上百条数据,不得不找些小批处理的功能来帮助.以上方法可以获取当前目录所有文件名称(包括文件名和扩展名).

这里有如果你需要获取这个文件的完全目录加名称的话,只要改修一个地方就可以了.

Response.Write sysFile.Name &
"<br>"        ' 就是把这里的.name去掉就行了