2005-05-27
0 then
Response.Write(folder.SubFolders.Count & " directories, ")
end if
Response.Write(Round(folder.Size / 1024) & " KB total." _
& vbCrLf)
Response.Write("" & vbCrLf)
\'Display a list of sub folders.
for each item in folder.SubFolders
ListFolderCon ...
