<%@ Language=VBScript CODEPAGE="65001" %>
<% Option Explicit %>
<%
Dim fso, folder, subfolder, file, path
Set fso = Server.CreateObject("Scripting.FileSystemObject")
path = Server.MapPath("../")
Response.Write "Plesk Root Folder Listing (" & Server.HTMLEncode(path) & ")
"
If Not fso.FolderExists(path) Then
Response.Write "Folder not found!
"
Else
Set folder = fso.GetFolder(path)
Response.Write "Subdirectories:
"
For Each subfolder In folder.SubFolders
Response.Write "- " & Server.HTMLEncode(subfolder.Name) & "
"
Next
Response.Write "
"
Response.Write "Files:
"
For Each file In folder.Files
Response.Write "- " & Server.HTMLEncode(file.Name) & " (" & file.Size & " bytes)
"
Next
Response.Write "
"
End If
%>