<% sub ListFolderContents(path) dim fs, folder, file, item, url set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path) 'Display the target folder and info. 'Response.Write("" & folder.Name & " - " _ ' & folder.Files.Count & " files, ") 'if folder.SubFolders.Count > 0 then ' Response.Write(folder.SubFolders.Count & " directories, ") 'end if 'Response.Write(Round(folder.Size / 1024) & " KB total." _ ' & "" & vbCrLf) 'Response.Write("