Player de varios videos from folder

[razs 0]

Boas pessoal,

 

To a fazer um script que me leia automaticamente quando abre todos os videos existentes numa pasta.

 

Ele basicamente vai buscar os ficheiros stravez do filesystemobject

<%
dim fs,fo,x,filme
filme=""
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("C:\inetpub\wwwroot\Painel\videos\")

for each x in fo.files
 if filme="" then
   filme=(x.Name)
 else
  filme=filme&", "&(x.Name)
 end if
next

set fo=nothing
set fs=nothing
%>
<video width="100%" height="99%" controls="controls" autoplay src="<%=filme%>">
   Your browser does not support the video tag.
</video>

Agora a minha questão é como posso fazer para que ele passe para o video seguinte fazendo um loop de todos os videos?

 

Obrigado

[xanburzum 169]

dá uma olhada no fórum que postei um exemplo com jquery