Created On: 11/24/2004 9:54:00 AM Following example displays all sub folders in current folder. We will use SubFolders property of FileSystem Object for this source code. First we will find our current path using System.MapPath.
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set folders = objFSO.GetFolder(server.MapPath("./"))
Set subFolders = folders.SubFolders
For Each subFolder in subFolders
response.write subFolder.name & "<br>"
Next
%>
|
