Lists all file within the current directory.

Matt Massey (4 Submissions) Active Server Pages ASP (Active Server Pages) Unknown Difficulty Sun 31^st January 1999 Mon 8^th February 2021

Rate Lists all file within the current directory.

(3(3 Vote))


<head><title></title></head>
<body>
<%
  Dim fso, f, f1, fc, s
  Set fso = CreateObject("Scripting.FileSystemObject")
	TheFile = Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))
	loc = InStrRev(TheFile,"\")
	TheFile = Left(TheFile,loc)
  Set f = fso.GetFolder(TheFile)
  Set fc = f.Files
  For Each f1 in fc
    'change the file extensions to view different files.
	if right(f1,5) = ".html" or right(f1,4) = ".htm" then 
            s = s & "<A HREF='" & f1.name & "'>" & f1.name & "</A>"
		s = s &  "<BR>"
	End If
  Next
  ShowFileList = s

%>
<% 
response.write ShowFileList
%>
</body>
</html>

Download snippet Save to my list

Lists all file within the current directory. Comments

No comments yet — be the first to post one!

Lists all file within the current directory.

Lists all file within the current directory. Comments

Post a Comment