Att förladda bilder är smart!

Men om man vill förladda bilder i men mapp, oavsett hur många bilder där finns, hur gör man då?

De script ja funnit ut är dessa.

Detta fungerar, men då måste man fördefiniera sökvägarna till bilderna.
<code>
<script type="text/javascript">
var imagesSrc=["img/img0.jpg","img/img1.jpg","img/img2.jpg"];

var images=new Object();
images.loaded=0;
images.toload=imagesSrc.length;
for(i in imagesSrc){
images[i]=new Image();
images[i].onload=function(){
images.loaded++;
}
images[i].src=imagesSrc[i];
}
</script>
</code>
Om man gör en fso-fnurra i VBScript så här:
<code>
<%
dim fso, folder, file, js

set fso = Server.CreateObject("Scripting.FileSystemObject")
set folder = fso.GetFolder(Server.MapPath("bilder/"))

for each file in folder.Files
file=replace(file,"\","/")
file=mid(file,instrrev(file,"/")+1)

if lcase(right(file,3))="jpg" or lcase(right(file,3))="gif" or lcase(right(file,3))="png" or lcase(right(file,4))="jpeg" then
if len(js)>0 then js=js&","
js=js&"'"&file&"'"
end if
next
%>
</code>
Och sen preloadar bilderna:
<code>
<script type="text/javascript">

var imgSrc=new Array(<%=js%>);

var imgLoaded = "alert('bild '+images.loaded+' av '+images.toload+' cachad.')"

var images=new Object();
images.loaded=0;
images.toload=imgSrc.length;


for(i in imgSrc){
images[i]=new Image;
images[i].onload=function(){
images.loaded++;
eval(imgLoaded);
}
images[i].src=imgSrc[i];
}

</script>
</code>
så borde det funka, tyckte jag.. men icke icke!

Nån som vet hur ja ska bete mej!?

Ja kom på det själv.. hade lömt att angivit en sökväg..

Så här har ja gjort nu:
<code>
<%
dim fso, folder, file, pthFolder, js

pthFolder = "Images/"

set fso = Server.CreateObject("Scripting.FileSystemObject")
set folder = fso.GetFolder(Server.MapPath(pthFolder))

for each file in folder.Files
file = replace(file,"\","/")
file = mid(file,instrrev(file,"/") + 1)


if lcase(right(file,3))="jpg" or lcase(right(file,3))="gif" or lcase(right(file,3))="png" or lcase(right(file,4))="jpeg" then
if len(js) > 0 then js = js & ","
js = js & "'" & pthFolder & file & "'"
end if

next
%>

<script type="text/javascript">

var imgSrc=new Array(<%=js%>);

var images=new Array();

for(i in imgSrc){
images[i]=new Image;
images[i].src=imgSrc[i];
}

</script>
</code>

Går det att optimera?