<% Set objFile = Server.CreateObject ("Scripting.FileSystemObject") objFolder = Server.MapPath("/testfolder") Set MyFolder = objFile.GetFolder(objFolder) %>

<% =objFolder %> is <% =MyFolder.Size %> bytes