marco: Ordnerstruktur auslesen

Beitrag lesen

meinst du sowas?

<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set objFldr = fso.GetFolder(server.mappath("bilder"))
Set objFileColl = objFldr.Files

For Each file in objFileColl

if instr(lcase(file.Name),".gif") <> 0 OR instr(lcase(file.Name),".jpg") <> 0 OR instr(lcase(file.Name),".jpeg") <> 0 then
Response.Write "<a href='bilder/"&file.Name&"'>" & file.Name & "</a><br>"
end if

Next

Set objFldr = Nothing
Set objFileColl = Nothing
Set fso = nothing
%>