<%
Response.write(generateallfolderinformation(FSO.GetFolder("d:\html\users\")))
Function GenerateAllFolderInformation(Folder)
   Dim S
   S = "Folder:" & TabStop & Folder.Path & NewLine & NewLine
   S = S & NewLine & "There are " & Folder.SubFolders.Count & " sub folders" 
   GenerateAllFolderInformation = S
End Function
%>