drop down box med verdier fra en mappe

Du kan alve det sådan her den udskriver kun billede filer .gif, .jpg .jpeg .bmp i select boksen. Du kan nemt tilføje flere efternave eller fjerne tjekker på efternavnet så den lister alle filer.:


<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Ret så det passer med din folder
strFolder = "C:\InetPub\wwwroot\"
Set objFolder = objFSO.GetFolder(strFolder)

Response.write "<select name=""fil"">"
For Each File in objFolder.Files
  if inStr(1,LCase(objFSO.GetExtensionName(File.Name)),"gif,jpg,jpeg,bmp") > 1 then
    Response.Write "<option value=""" & File.Name & """>" & File.Name & "</option>"
  end if
Next
Response.write "</select>"

Set objFolder = Nothing
Set objFSO = Nothing
%>

Hvad gør denne fil helt nødaktig ?
if inStr(1,LCase(objFSO.GetExtensionName(File.Name)),"gif,jpg,jpeg,bmp") > 1 then

ellers mange tak det virker meget fint. :-)

Den finder fil efternanvet på den fil den er kommet til: objFSO.GetExtensionName(File.Name),  LCase sikere bare at det bliver i lowercase.

inStr bruges til at tjekke om en streng er i en anden streng og returnere index til hvor den findes.  "gif,jpg,jpeg,bmp"  er en liste af de fil efternavne som man vil havde vist i drop-down boksen. Er index størrer end 0 så findes det man søger efter.

Så det er i princippet et filter som sikre at kun filer med de angive fil efternavne vises.

Der er faktisk en lille fejl, i denne linje der skal stå 0 og ikke 1:
if inStr(1,LCase(objFSO.GetExtensionName(File.Name)),"gif,jpg,jpeg,bmp") > 1 then

Her.:
if inStr(1,LCase(objFSO.GetExtensionName(File.Name)),"gif,jpg,jpeg,bmp") > 0 then

Ok Takker mange gange. Lukker.