databind a DropDownList control with a list of all sub directories that exist in a particular directory on the server

Question

I am wanting to databind a DropDownList control with a list of all sub directories that exist in a particular directory on the server. The directory I want to search is in the root of the application. I am fairly new to programming and I'm not sure where to even start.

I found this code on a website:

 Dim root As String = "C;\"
        Dim folders() As String = Directory.GetDirectories(root)  
        Dim sb As New StringBuilder(2048)  
        Dim f As String  
        For Each f In folders  
            Dim foldername As String = Path.GetFileName(f)  
            sb.Append("<option>")  
            sb.Append(foldername)  
            sb.Append("</option>")  
        Next  
        Label3.Text = "<select runat=""sever"" id=""folderlist""" & sb.ToString() & "</select>"  

I guess this is vb. but my tool is in asp, so is their something similar in vbscript so that I can use it.

Answer 1

Here is a very quick and dirty example of what you want.

There are a lot of improvements I would make before I'd consider it production ready code.

It should however server to show you some of the basic concepts you are after.

<%@ Language=VBScript  ENABLESESSIONSTATE = False%>

<select id="selFiles" name="selFiles" class="Select" style="width: 250px" tabindex="130">

<% 

Dim fso, folder, files

Set fso = CreateObject("Scripting.FileSystemObject")  

Set folder = fso.GetFolder("C:\")  

Set files = folder.Files    
For each folderIdx In files 

    Response.Write("<option>" + folderIdx.Name + "</option>")

Next  

 %>
</select>

One place to start looking at improvements here would be introducing your own components that will do all the complex stuff like listing files this gives you more control, allows greater modularity in you design and (probably most importantly) gives you better control of security.

The information below may be slightly off (it is from memory of an old project) but should be reasonably close and give you a start on introducing code components into your ASP classic code.

With ASP classic you create objects using code like:

<object runat="server" progid="YourObject.Class" id="oObject" VIEWASTEXT></object>

Where YourObject.Class is the programatic id of a component installed in the registry.