<%
page = request.serverVariables("PATH_INFO")
fileToDelete = request.queryString("fileToDelete")
basePath = "/prove/"
response.write "File presenti nella cartella " & basePath & "<br />" & vbCrLf
set fso = server.createObject("scripting.fileSystemObject")
if len(fileToDelete) > 0 then
if fso.fileExists(server.mapPath(basePath & fileToDelete)) then
fso.deleteFile(server.mapPath(basePath & fileToDelete))
end if
end if
set folder = fso.getFolder(server.mapPath(basePath))
set files = folder.files
response.write "<ul>" & vbCrLf
for each file in files
response.write "<li>" & file.name & " - <a href=""" & page & "?fileToDelete=" & file.name & """>Elimina</a></li>" & vbCrLf
next
response.write "</ul>" & vbCrLf
set files = nothing
set folder = nothing
set fso = nothing
%>