Indhold i mappe skal vises i dropdown.

http://www.michaelsoft.com/default.asp?page=code&section=web&subsection=asp&articleid=7

Er det noget i den stil du søger?

http://www.backside.dk/e/dir.asp
Her er den i funktion.

Skulle selvfølgelig være i en dropdown, men det kan vel nemt løses.
Bare afvis mit svar da det ikke var et svar på spørgsmålet.

De funktioner i viser er ok, men jeg har brug for at få værdierne lagt ind i en dropdown-menu så man kan vælge en fil.

Kan sku ikke få den helt til at virke. Jeg gi´r op.

Prøv med dette:


<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("..\images"))
%>
<select name="filen" size="1" cols="40">
  <option value="">Ingen fil valgt</option>
<% For Each objFile in objFolder.Files %>
  <option value="<%=objFile.Name%>"><%=objFile.Name%></option>
<% next %>
</select>
<%
Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing
%>

Tusind tak eagleeye.
Jeg fandt denne her og den virker også:

<%dim jm_fso, jm_file, jm_types, jm_path, jm_folder,jm_show,jm_i,jm_ext
jm_ext=true
jm_path = "../images"
jm_types = split(replace("asp,html,jpg"," ",""),",")
Set jm_fso = Server.CreateObject("Scripting.FileSystemObject")
Set jm_folder = jm_fso.GetFolder(Server.MapPath(jm_path))

For Each jm_file in jm_folder.Files
jm_show=false
for jm_i=0 to ubound(jm_types,1)
If lcase(right(jm_file.name,3)) = jm_types(jm_i) then jm_show=true
next
If jm_show=true then
if jm_ext=true then
response.write "<option value=""" & jm_File.Name & """>" & jm_File.Name & "</option>"  &vbcrlf
else
response.write "<option value=""" & jm_File.Name & """>" & mid(jm_File.Name,1,len(jm_File.Name)-4) & "</option>"  &vbcrlf
end if
end if
next
set jm_file=nothing
set jm_folder = nothing
set jm_fso=nothing%>

Men tak alligevel...