startFolder="/" dim folder,folderCol Set objFSO = Server.CreateObject("Scripting.FileSystemObject") set folder = objFSO.getFolder(server.MapPath(startFolder)) for each fil in folder.Files%> <option value="<%=fil.name%>"><%=fil.name%> <%next
<% ' Hent filnavne Set fso = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = fso.GetFolder(Server.Mappath("/" & request.querystring("folder"))) %> <html>
<head> </head>
<body> <select size="1" name="Selectbox"> <% ' Vis filer eller filder v_fil = 0 For Each file in objFolder.Files v_ext = lcase(RIGHT(file.Name, LEN(file.Name)-inStrRev(file.Name, "."))) if v_ext = "asp" then response.write "<option>" & file.Name & "</option>" end if Next %> </select> </body>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.