folder filter
Hi,
I have the below code that lists all the subfolders in a folder
Now how can I filter one or two folders not to show in the list???
It lists for ex these folders:
images
test
admin
myfiles
I want for ex the "admin" folder not to show up in the list
<%
FolderCounter = 0
SET MyFileObject = server.createobject("Scripting.FileSystemObject")
SET MyFolder = MyFileObject.GetFolder(Folder)
FOR EACH Folders IN MyFolder.SubFolders
FolderName = Folders.name
IF lcase(FolderName) <> "_vti_cnf" THEN
image = "folder.gif"
%>
<tr>
<td><img src='images/<%= image & "' border='0' alt='Folder: " & FolderName%>'> <a class='linksd' href='homePageEditor.asp?CPRN=<%= CPRN & "&CurrentDir=" & Server.URLEncode(Base64Encode(CurrentDir & "\" & FolderName)) %>'><%= FolderName %></a></td>
<td class='folderssize'><%=formatnumber(Folders.size,0 )%> </td>
</tr>
<%
FolderCounter = FolderCounter + 1
END IF
NEXT
SET MyFolder = nothing
SET MyFileObject = nothing
%>
|