Retour de vacances... les CD de photos numériques viennent juste d'arriver et les copains veulent admirer les couchers de soleil :) Pas moyen de mettre toutes les photos dans un même dossier pour utiliser la fonction diaporama d'XP... sur chaque CD il y a une photo 001.jpg, 002.jpg, etc... faudrait toutes les renommer ou relancer le diaporama sur chaque dossier :(( alors :
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
sub display(rep) dim fc,f set fc = FSO.getFolder(server.MapPath(rep))
' Lit les sous-dossiers for each f in fc.subfolders display rep & "/" & f.name next
' Lit les photos du dossier courant for each f in fc.files if instr("jpeg.jpg.gif.bmp",right(f.name,4))>0 then ' Déjà affichée ? if session("photo")=rep & "/" & f.name Then ' Oui alors prépare pour la suivante session("photo")="" elseif session("photo")="" then ' Affiche la photo session("photo")=rep & "/" & f.name exit for end if end if next
end Sub
display "." %> <HTML><HEAD> <TITLE>Diaporama 1.1</TITLE> <META http-equiv="refresh" content="<% If session("photo")<>"" Then response.write 5 _ Else response.write 0%>"> </HEAD><BODY bgcolor=black><center> <TABLE height=100%><TR><TD align=right> <% If session("photo")<>"" Then %> <img src="<%=session("photo")%>" height=400><br> <font size=1 color=white> <%=Mid(session("photo"),InstrRev(session("photo"),"/")+1)%> </font> <%End if%> </TD></TR></TABLE> </BODY></HTML>