<% directoryname = Request("folder") if directoryname = "" then directoryname = "/home/sites/site81/users/ekmaro/web" end if Set fso = CreateObject("Scripting.FileSystemObject") set mainfolder=fso.GetFolder(directoryname) set originalFiles = mainfolder.Files if request("submit") = "delete" then files = split(request("selectedfiles"), ",") rem response.write "ubound=" & ubound(files) for counter=0 to ubound(files) filetobedleted = trim(files(counter)) for each file in originalFiles rem response.write "
comparing [" & directoryname & "/" & file.name & "] with [" & filetobedleted & "]" if directoryname & "/" & file.name = filetobedleted then response.write "deleting " & filetobedleted & "
" file.delete() exit for end if next next end if Set filecollection = mainfolder.Files Set foldercollection = mainfolder.SubFolders parentFolder = mainfolder.ParentFolder %>

Showing contents of the directory: <%=directoryname%>
PARENT FOLDER
<% For Each folder In foldercollection %><%=folder%>
<% Next %> <% index = 0 For Each file In filecollection fileurl = replace(file, "/home/sites/site81/users/ekmaro/web", "http://www.fashionorange.com/~ekmaro") if index mod 10 = 0 then %> <% end if %> <% if index mod 10 = 9 then %> <% end if index = index + 1 Next %>

<% set fso = Nothing %>