Selectbox der returnerer foldernavne

Mener du en selectbox som indeholder alle mapper under en givet mappe? Rekursivt?

Jeg skriver normalt asp i jscript, men du kan nok se idéen her:
<%
fso=Server.CreateObject("Scripting.FileSystemObject");
ltReg=new RegExp("<","g");
gtReg=new RegExp(">","g");
qReg =new RegExp("\"","g");

function buildSelect(foldspec) {
    var bsFold
    var bsSubs
    bsFold=fso.GetFolder(Server.MapPath(""+foldspec));
    bsSubs = new Enumerator(bsFold.SubFolders);
    %><OPTION value="<%=Server.URLEncode(foldspec)%>"><%=foldspec%><%
    for (; !bsSubs.atEnd(); bsSubs.moveNext()) {
        cDir=bsSubs.item();
        cName = ""+cDir.Name;
        if (cName.charAt(0)!="_") {
            buildSelect(foldspec+cName+"/");
        }
    }
}

%><SELECT id=select1 name=cPath onchange="setPath(this.value)" class=Ismaller><%
buildSelect("/");
%></SELECT><%

Ellers må du sige til.

Ja en selectbox - men navnene på mapper under en givet mappe.
Hvor skal \zfax\users puttes ind ?

Så må jeg hellere skrive den fuldt ud.

Du vil altså kun have mapperne direkte under en given mappe?
Hvilket sprog? vbscript eller jscript?

Du siger jscript du mener javascript - sprog - hvad der nemest for dig.

Jeg mener faktisk jscript.
Det er hvad Microsoft kalder den javascript variant man bruger til at skrive asp-filer.
<%@language=jscript%>


Nå - men hvis du skal bruge det i en asp-fil hvor resten er vbscript, så bør det jo være vbscript.
Men her er en hurtig omskrivning af ovenstående:

fso=Server.CreateObject("Scripting.FileSystemObject");
function buildSelect(foldspec) {
    var bsFold
    var bsSubs
    bsFold=fso.GetFolder(foldspec);
    bsSubs = new Enumerator(bsFold.SubFolders);
    for (; !bsSubs.atEnd(); bsSubs.moveNext()) {
        cDir=bsSubs.item();
        cName = ""+cDir.Name;
        %><OPTION value="<%=cName%>"><%=cName%><%
    }
}
%><SELECT name=userFolder><%
buildSelect("c:\\zfax\\users");
%></SELECT><%

Det kan jeg ikke få til at virke.

<%

Dim Cname
fso=Server.CreateObject("Scripting.FileSystemObject");
function buildSelect(foldspec) {
    var bsFold
    var bsSubs
    bsFold=fso.GetFolder(foldspec);
    bsSubs = new Enumerator(bsFold.SubFolders);
    for (; !bsSubs.atEnd(); bsSubs.moveNext()) {
        cDir=bsSubs.item();
        cName = ""+cDir.Name;
        %><OPTION value="<%=cName%>"><%=cName%>
<%
    }
}
%>
<SELECT name=userFolder><%buildSelect("c:\\zfax\\users")%>
</SELECT>

Det er jo nok fordi du har sat en vbscript kommando ind i starten.
;-)
Som sagt er det ikke vbscript, men jscript.

Så får du noget der ligner i vbscript:
<%@language=vbscript%><%
Set fso=Server.CreateObject("Scripting.FileSystemObject")

function buildSelect(foldspec)
    Set bsFold=fso.GetFolder(foldspec)
    strFoldere=""
    for each folder in bsFold.SubFolders
        strFoldere=strFoldere+"<OPTION value='" & folder.Name & "'>" & folder.Name
    next
    buildSelect=strFoldere
end function
%>
<SELECT name=userFolder><%=buildSelect("c:\zfax\users")%>
</SELECT>

Nu kan kode afvikles - men jeg får ikke noget i selectboxen.

Jeg har 2 folder under c:\xfax\users som hedder henholdsvis
server
sfax

Selectboxen returner ikke noget ?

Har du opdaget at der er kommet et lighedstegn ind ved buildselect?

Med eller uden lighedstegn giver ingen forandring ?

Med eller uden lighedstegn giver ingen forandring ?
selectboxen returner intet ?

Jeg har fundet fejlen - koden skal se sådan ud.

<%

Dim fso,bsFold,StrFoldere,Folder

Set fso=Server.CreateObject("Scripting.FileSystemObject")

function buildSelect(foldspec)
    Set bsFold=fso.GetFolder(foldspec)
    strFoldere=""
    for each folder in bsFold.SubFolders
        strFoldere=strFoldere+"<OPTION value='" & folder.Name & "'>" & folder.Name
    next
    buildSelect=strFoldere
end function
%>

<SELECT name=userFolder><%=buildSelect("C:\zfax\users")%>
</SELECT>

Se nu anvender vi C:\zfax\users i buildSelect - da koden skal bruges
flere forskellige servere hvor mand ikke p.f.h. ved hvor \zfax\users
ligger - hvordan kan man sikre sig at kode leder på alle tilgængelige drev
c: d: e: etc ?

Jeg har selv fundet ud af noget af det.

<%
function buildSelect(foldspec)
    Dim fso,bsFold,StrFoldere,Folder,dc,d

    Set fso=Server.CreateObject("Scripting.FileSystemObject")
    Set dc = fso.Drives

' Gennemløb array med en løkkedrevbogstav
    For Each d in dc
        Set d = fso.GetDrive(d.driveletter+":")
        If d.DriveType=2 then
            If fso.FolderExists(d.driveletter+":"+foldspec) = true Then Set bsFold=fso.GetFolder(d.driveletter+":"+foldspec)
        end if
    next

    strFoldere=""
    for each folder in bsFold.SubFolders
        strFoldere=strFoldere+"<OPTION value='" & folder.Name & "'>" & folder.Name
    next
    buildSelect=strFoldere
    set fso=nothing
    set dc=nothing
    set bsfold=nothing
end function
%>
<SELECT name=userFolder><%=buildSelect("\zfax\users")%>
</SELECT>

Jeg er ikke en haj til det - men det her ser ud til at virke ?

Mind mig på at jeg ikke skal hjælpe dig næste gang.