Simple FSO directory file listing

spearmahj (j) — Tue, 02 Jan 2007 04:28:41 GMT

// simple browsing tool



<%



dim aryURL, URLvar

aryURL = Split(Request.ServerVariables("SCRIPT_NAME"), "/", -1, 1)

URLvar = aryURL(ubound(aryURL))



if request.querystring("sPP")<>"" then 

	

	sPP=request.querystring("sPP") & "\"

	ParentVar="Parent Directory

" & vbCrLF

else

	sPP = "\\serverlocation\"

end if



	

	Set fso = CreateObject("Scripting.FileSystemObject")

	Set f = fso.GetFolder(sPP)  

	Set fc = f.Files 

	Set ff = f.SubFolders 

	For Each f1 in ff	

	  HeaderVar=HeaderVar& "" & f1.name & "  | " & vbCrLF

	Next  

	For Each f1 in fc

	  SubHeaderVar=SubHeaderVar& "" & f1.name & " 
" & vbCrLF

	Next  

	Set ff = nothing

	Set fso = nothing

	Set f = nothing

	Set fc = nothing





response.write ParentVar

if HeaderVar<>"" then response.write "Folders" & vbCrLF & "

 | " & vbCrLF & HeaderVar & "

" & vbCrLF

if SubHeaderVar<>"" then response.write "Files" & vbCrLF & "

" & vbCrLF & SubHeaderVar & vbCrLF



%>

DZone Snippets: FSO code

Simple FSO directory file listing