Udfyld combo med filnavne

<%
Function ShowFolderList()
    folderspec = server.mappath(\".\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
    if lcase(right(file.name, 4)) = \".jpg\" OR lcase(right(file.name, 4)) = \".gif\" OR lcase(right(file.name, 4)) = \".bmp\" THEN
    tmp = tmp & \"<option>\" & file.name & \"</option>\"
end if
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

<%
Function ShowFolderList()
    folderspec = server.mappath(\".\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
    if lcase(right(file.name, 4)) = \".jpg\" OR lcase(right(file.name, 4)) = \".gif\" OR lcase(right(file.name, 4)) = \".bmp\" THEN
    tmp = tmp & \"<option>\" & file.name & \"</option>\"
end if
    Next
    ShowFolderList = tmp
End Function
response.write(\"<SELECT>\")
response.write showfolderlist()
response.write(\"</SELECT>\")
%>

netsrac >>

er der overhovedet noget du ikke kan? :-)

Mange tak for hjælpen!

/Peter F. Poulsen

pfp >> Ja jeg kan ikke hoppe på tungen :-)

Det var så lidt :-)