Sorter efter filnavn / skriv filnavn uden extension
Hej!Jeg benytter FSO til at liste en masse billeder. De hedder 1.jpg, 2.jpg etc. Jeg vil gerne lave en SORT BY file.name - forstår i? Således at den tager 1, 2, 3, 4... og så vil jeg gerne kunne skrive file.name uden at den tager extension med! Så jeg her et billede og nedenunder står der kun 1 og ikke 1.jpg!
Her er det jeg benytter (vist nok en gammel eagleeye ting!):
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
myPath = server.MapPath("/pic/")
Set folder = FSO.GetFolder(myPath)
%>
<table border="0" width="500">
<%
noColPrRow = 0
maxColsPrRow = 4
for each file in folder.files
indexExt = inStrRev(file.name, ".")
if indexExt > 0 then
fileExt = lcase(mid(file.name,indexExt+1))
else
fileExt = ""
end if
if fileExt = "jpg" OR fileExt = "jpeg" OR fileExt = "gif" then
if noColPrRow = 0 then
Response.Write "<tr>"
end if
%>
<td><img src="../pic/<%=file.name%>" alt="<%=file.name%>" width="100"><br><font size="2" face="Verdana"><%=file.name%></font></td>
<%
noColPrRow = noColPrRow + 1
if noColPrRow = maxColsPrRow then
Response.Write "<tr>"
noColPrRow = 0
end if
end if
next
%>
