Indhold af mappe ud i dropdown ...

Jeg har dette eks som liste alle billede filer i en valgt folder

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("..\images"))
%>
<tr>
<td align=right valign="top">image file:</td>
<td align=left valign="top">
<SELECT name="image" size="1" cols="40">
<option value="" <% if Server.HTMLEncode(image & "")="" then Response.Write " selected"%>>Ingen billede</option>
<% For Each objFile in objFolder.Files %>
  <option value="<%=objFile.Name%>"><%=objFile.Name%>
<% next
Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing
%>
</td></tr>

Lige et spørgsmål ..

Hvis billederne befinder sig i samme mappe som asp-filen (i roden), så er det sådan her ikke?

Set objFolder = objFSO.GetFolder(Server.MapPath("\"))

Men jeg kan sq ikke få noget frem i dropdown menuen ..... nogen forslag til hvad der kan være galt ?!

Den siger bare "Ingen billede" Og "ingen billede" står UDENFOR dropdown boxen .. er dette meningen ?

Der var også en lille fejl i koden men dropdown box skal være på en form Prøv denne kode:


<table>
<form>
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("..\images"))
%>
<tr>
<td align=right valign="top">image file:</td>
<td align=left valign="top">
<SELECT name="image" size="1" cols="40">
<option value="">Ingen billede</option>
<% For Each objFile in objFolder.Files %>
  <option value="<%=objFile.Name%>"><%=objFile.Name%>
<% next
Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing
%>
</td></tr>
</form>
</table>

selve "designet" virker fint nu .. men den kan dælme ikke finde nogen billeder ... nogen forslag ?! Jeg har stadig mine filer til at lægge i roden ... som jpg filer ...

i Så prøv denne:

Set objFolder = objFSO.GetFolder(Server.MapPath("\"))

Nej .. stadig ingen billeder i sigte ... hmm

Ingen filer overhoved?

nej .. den viser bare "Ingen billede"

Jeg prøvede at køre en Response.Write på variablen objfolder ... der kom intet .. ved ikke om det har noget med sagen at gøre ...

Den lister alle filer i folderen både billede filer og andre, husk at trykker på pillen på dropdown boxen for at se listen.

HVis du skriver:  Response.Write objFolder  så skriver den bare navnet på den folder som objFolder peger på.

hehe jaja .. faktisk så har jeg "foldet" den helt ud ..

Prøv lige at vis din kode..

Der er inkluderet lidt javascript i select forme´n .. burde ikke ødelægge noget...

<FORM NAME=myForm>

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("\"))
%>


<SELECT NAME=myImg onChange=changePreview() size="12" style="border:1px solid #ECE9E1; background-color: #ECE9E1">

<option value="blank.gif">Ingen billede</option>
<% For Each objFile in objFolder.Files %>
  <option value="<%=objFile.Name%>"><%=objFile.Name%>
<% next
Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing
%>

Jeg har prøvet at copy/paste koden og den lister alle filerne i roden..:


<FORM NAME=myForm>

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("\"))
%>


<SELECT NAME=myImg onChange=changePreview() size="12" style="border:1px solid #ECE9E1; background-color: #ECE9E1">
<option value="blank.gif">Ingen billede</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
%>
</form>

Nej virker stadigvæk ikke selvom jeg paster ovenstående ind ... Har lige prøvet et alternativ - meget magen til dit, men med samme problem: Der kommer ingenting i Dropdownen ...

Kan det være en serverindstilling ? Jeg bruger IIS 5 ... (er det vist nok)

Internet Guest Account / IUSR_MASHINENAME skal havde læse rettigtheder for det viker til root... men det er vist default.

Jeg fandt fejlen ... Idioten (det vil så være mig) havde ikke omdøbt min fil til *.asp da jeg begyndte at rode med asp ..... Min fejl .. undskylder ! :)

Ok ;)

Den lister alle filer ikke kun billede filer.... Hvis den kun skal vise billede filer som .gif, .jpg, og .jpeg så skal du havde en if sætnigne omkring sådan her:


<FORM NAME=myForm>

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("\"))
%>


<SELECT NAME=myImg onChange=changePreview() size="12" style="border:1px solid #ECE9E1; background-color: #ECE9E1">
<option value="blank.gif">Ingen billede</option>
<% For Each objFile in objFolder.Files
if (inStr(1, objFile.Name, ".gif",1) > 0) OR (inStr(1, objFile.Name, ".jpg",1) > 0) OR (inStr(1, objFile.Name, ".jpeg",1) > 0) then  %>
  <option value="<%=objFile.Name%>"><%=objFile.Name%></option>
<% end if
  next %>
</select>
<%
Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing
%>
</form>
<FORM NAME=myForm>

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("\"))
%>


<SELECT NAME=myImg onChange=changePreview() size="12" style="border:1px solid #ECE9E1; background-color: #ECE9E1">
<option value="blank.gif">Ingen billede</option>
<% For Each objFile in objFolder.Files
if (inStr(1, objFile.Name, ".gif",1) > 0) OR (inStr(1, objFile.Name, ".jpg",1) > 0) OR (inStr(1, objFile.Name, ".jpeg",1) > 0) then  %>
  <option value="<%=objFile.Name%>"><%=objFile.Name%></option>
<% end if
  next %>
</select>
<%
Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing
%>
</form>

ups jeg fik trykket på to gange på paste, så du skal kun bruge halv delen fra:

<FORM NAME=myForm>
..
..ned til..
..
</form>

Rigtig mange tak !

Hej Eagleeye

Tak for ovenstående script - har du en fiks måde hvorpå man kan se et preview af den fil man vælger fra folderen?

Hilsen
Hohn