Excluding Folders and Files in FSO

[devwantabe]

Does anyone know what code to use to exclude folders name showing on display?

I want to let users browse contents of a particular folder and look at the files in the folder. but not see any folder names inside.

and also to exclude viewing files like .asp, .asa. etc.

Any suggestions.

<font color="green"></font id="green">

[jakyra]

I use this to print out all the .xls files, you could use something similar with <> asp and <> asa

Code: Select all

	for each x in fo.files
	  'Print the name of all files in the test folder
	   if right(x.Name, 3) = "xls" then 
			Response.write "<tr><td>" & x.Name & "</td>"
			response.write "<td> " & x.DateLastModified & " </td></tr>"
		end if
	next

jakyra

[devwantabe]

Thanks. I was actually looking for code to exclude a file and or a folder being viewed, so what's the code to hide the display of objects?

Response.write outputs to display

Thanks again.

[Rob]

ok... i have not tested this but try something like:-

Code: Select all

'create a string of dissallowed extensions (lowercase)
DissallowList = "|asp|asa|aspx|"
for each x in fo.files
          FileExt = Mid(x.Name, InStrRev(x.Name, ".")+1, Len(x.Name) - InStrRev(x.Name, ".") + 1)
          If Instr(DissallowList,"|" & lcase(FileExt) & "|") = 0 Then
	  	'Print the name of all files in the test folder
	   	Response.write "<tr><td>" & x.Name & "</td>"
		response.write "<td> " & x.DateLastModified & " </td></tr>"
	  End If
next

Hope This helps!