Omskriv function til at hente filnavne

<TD><SELECT class="inputs2" size="0" name="ZID" onChange=""><%=BuildSelect("\Borland\label\designs")%>
                                  </select>
                          </td>

Du kan rette det som laver strFoldere til dette:

    strFile=""
    for each file in bsFold.Files
        efternavn=fso.GetExtensionName(file.Name)
        if efternavn<>"" then efternavn="."&efternavn
        filnavn = replace(file.Name, efternavn,"")
        strFile=StrFile & "<OPTION VALUE='" & filnavn & "'"
        strFile=StrFile &  ">" &  filnavn & "</OPTION>" & vbcrlf
    next
    BuildSelect=strFile

function buildSelect(foldspec)
    Dim fso,bsFold,StrFile,Folder,dc,d,efternavn,filnavn

    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

    strFile=""
    for each file in bsFold.Files
        efternavn=fso.GetExtensionName(file.Name)
        if efternavn<>"" then efternavn="."&efternavn
        response.write efternavn
        filnavn = replace(file.Name, efternavn,"")
        strFile=StrFile & "<OPTION VALUE='" & filnavn & "'"
        strFile=StrFile &  ">" &  filnavn & "</OPTION>" & vbcrlf
    next
    BuildSelect=strFile

    set fso=nothing
    set dc=nothing
    set bsfold=nothing
end function

Jeg kan ikke det til at køre ?

Hvad kan der være galt ?

Hvad melder den af fejl?

Ingen den stopper ud fejl ?

den returner tom selectbox

og du klader den på samme måde en med sti til hvor filerne skal findes?

<TD><SELECT class="inputs2" size="0" name="ZID" onChange="" style="width:110px;"><%=BuildSelect("\Borland\label\designs")%>
                                  </select>
                          </td>

I folderen \Borland\label\designs ligger der en masse filer som skal ind i selectbox

hmm det forstår jeg ikke helt. Umiddelbart kan jeg ikke se noget som er vilt galt.
Jeg kan se du har tilføjet en linje:
response.write efternavn

udskriver den noget??
Prøv evt at udskrive stien før for eact linjen.

response.write bsFold.name

Den udskriver ikke noget. - koden stopper

Har du en On Error Resume Next i koden?

function buildSelect(foldspec)
    Dim fso,bsFold,StrFile,Folder,dc,d,efternavn,filnavn

    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

    strFile=""
    for each file in bsFold.Files
        efternavn=fso.GetExtensionName(file.Name)
        if efternavn<>"" then efternavn="."&efternavn
        filnavn = replace(file.Name, efternavn,"")
        strFile=StrFile & "<OPTION VALUE='" & filnavn & "'"
        strFile=StrFile &  ">" &  filnavn & "</OPTION>" & vbcrlf
    next
    BuildSelect=strFile

    set fso=nothing
    set dc=nothing
    set bsfold=nothing
end function

<TD><SELECT class="inputs2" size="0" name="ZID" onChange="" style="width:110px;"><%=BuildSelect("\Borland\label\designs")%>
                                  </select>
                          </td>

Det er koden.

Ja men kode stopper ikke bare uden at melde fejl, men mindre man har slået fejl visning fra.
Virkede koden da den listede foldere?

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 & "'"
          StrFoldere=StrFoldere &  ">" &  folder.Name & "</OPTION>" & vbcrlf
    next
    BuildSelect=strFoldere

    set fso=nothing
    set dc=nothing
    set bsfold=nothing
end function

<TD><SELECT class="inputs2" size="0" name="ZID" onChange=""><%=BuildSelect("\zfax\users")%>
                                  </select>
                          </td>

Den her kører som den skal og viser folderne - men jeg oplever at de fejl der sker
inde sub functionen melder browseren ikke fejl til mig den stopper bare- den melder
feks ikke fejl hvis der mangler at bliver Dim en variabel ?

ok, og folderen findes naturligvis sådan den kan finde den i dette loop?
    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

function buildSelect(foldspec)   
    Dim fso,bsFold,dc,d,strfile,file,efternavn,filnavn

    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

    strFile=""
    for each file in bsFold.Files
        efternavn=fso.GetExtensionName(file.Name)
        if efternavn<>"" then efternavn="."&efternavn
        filnavn = replace(file.Name, efternavn,"")
        strFile=StrFile & "<OPTION VALUE='" & filnavn & "'"
        strFile=StrFile &  ">" &  filnavn & "</OPTION>" & vbcrlf
    next
    BuildSelect=strFile


    set fso=nothing
    set dc=nothing
    set bsfold=nothing
end function

Den her virker - der manglede at blive DIM nogle af de variabler i Sub functionen
Hvorfor melder browseren ikke fejl på manglende DIM i sub functioner ?

hmm ja det forstår jeg ikke helt.
Man kan slå fejl visning fra sådan koden bare forsætter hvis der er fejl i koden med:
On error resume next

Den viser godt nok fejl - undtagen når det er i en sub function ?

<%
Option Explicit
%>
Så skulle den jo melde fejl hvis der var en variabel der ikke var DIM

Ja helt enig den skulle melde fejl, hvis man mangler at dim en variable. Men jeg kan ikke svare på hvorfor den ikke melder fejl. Tilsyneladne sker der en fejl, da koden stopper så noget betyder Option Explicit for funktionen.

Ok - det virker ny - tak for hjælpen.