Liste dir og subdir ?

Hej experter jeg har følgende stump kode som lister dir's i en dropdown dims, jeg har behov for også at få listet subdirs så den gør det på følgende måde:

Dir1
Dir2
Dir2/subdir1
Dir2/subdir2
Dir3
osv..

Kode:

        <%
        strPathInfo = Request.ServerVariables("PATH_INFO")
        strPhysicalPath = Server.MapPath(strPathInfo)
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objFile = objFSO.GetFile(strPhysicalPath)
        Set objFolder = objFile.ParentFolder
        Set objFolderContents = objFolder.Files
        %>
        <select name="mappe">
        <option value="" SELECTED>-- Vælg mappe --</option>
        <%
        Set objFolders = objFolder.SubFolders
        For Each folder in objFolders
        response.write "<option value=""" & (subfolder&folder.Name) & """>" & folder.Name & "</option>"
        next
        %>
        </select>