Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

hudsonalves

Link dentro do fso

Recommended Posts

Explicação rápida.

 

Fiz uma biblioteca de filmes e aloquei em uma pasta chamada D:

Estou rodando a página IIS instalada no C:, quando eu chamo a capa do filme ela aparece direitinho, mas quando chamo o link para abrir o video não tem ação.

 

 

 

Estou fazendo assim:

For Each File in objFolder.files
Response.Write " <tr>"
Response.Write " <td><a href='D:/FilmesHD/" & File.Name & "'>    <img src='Capas/" & File.Name & ".jpg' width='135' height='182'></a></td>"
Response.Write " <td>" & File.Name & "</td>"
Response.Write " <td>" & File.Type & "</td>"
Response.Write " <td>" & File.DateLastModified & "</td>"
Response.Write " </tr>"
Next

O caminho esta correto mas não abre o vídeo

Compartilhar este post


Link para o post
Compartilhar em outros sites

qual o erro ?

 

provavelmente isso é a concatenação que não esta correta do link

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá hudsonalves blza!

 

Veja esse exemplo, talvez te ajude a ter uma ideia ou algum luz para seu problema.

 

Ele faz a listagem de diretórios e subdiretórios (arvore de diretórios) e seus respectivos arquivos.

 

 

AUTOR:

<!--
Título: Script para Navegação entre diretórios e arquivos em servidor WEB.
Versão: 1.0
Autor: Ricardo Vinicius de Godoi
Email: rvgodoi@hotmail.com
Data: 10/11/2002
Requisitos: Servidor rodando IIS com suporte ao FilesystemObject.
-->

default.asp

<%
'Bloco de código que faz com que a página não seja armazenada em cache, evitando que o usuário
'visualize arquivos/pastas que não estão mais no servidor ou não visualize arquivos/pastas novos:

Response.Buffer=true
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
Response.ExpiresAbsolute = #January 1, 1990 00:00:01#
Response.Expires=Now()-1
Response.AddHeader "Cache-Control", "must-revalidate"
Response.AddHeader "Cache-Control", "no-cache"
%>
<%
'Configurações do script:

'Parametro passado pela URL quando se clica em uma determinada pasta ou arquivo:
ParametroPasta = Request.QueryString("Pasta")

'A session abaixo deve ser alterada para o caminho físico onde estarão os arquivos e subdiretórios a serem acessados:
Session("Path") = "C:/inetpub/wwwroot/FilmesHD"&ParametroPasta&""
Path = Session("Path")
'A variável abaixo deve ser alterada para o caminho virtual das pastas no servidor:
PathVirtualArquivos = "/FilmesHD"
'A variável abaixo deve ser alterada para o caminho virtual deste script:
PathScript = "/FilmesHD/default.asp"

'Criando o objeto Filesystem Object:
SET FSO = Server.CreateObject("Scripting.FileSystemObject")
'Setando o caminho que será indicado como pasta raiz:
Set Pasta = FSO.GetFolder(""&Path&"")
'Solicitando a lista de arquivos para a pasta raiz:
set arquivos = pasta.files
'Setando a pasta raiz:
set Raiz = Pasta
'Verificando as subpastas da pasta raiz:
Set Pastas = Raiz.SubFolders

'Verificando o Nome da pasta Raiz:
Nome = pasta.name

'Verificando se há subpastas:

contador = 0
for each subpastas in pastas
contador = contador+1
next

%>
</b>
<%
Response.write "<br><div align=left>"
Response.Write "<font face=arial size=2>"

if contador <> 0 then

'Fazendo um loop pelas subpastas da pasta raiz:
for each subpastas in Pastas
response.Write "<img border=0 src='fold.gif' align=top><a href='"&PathScript&"?Pasta="&ParametroPasta&"\"&subpastas.name&"'><font color = #003366>"&subpastas.name&"</font></a><br>"
next

end if

response.write "<br>"

'Fazendo um loop pelos arquivos da pasta:
Apostila = "apostilas"
for each arquivo in arquivos
response.write "<img border=0 src='file.gif' align='middle'> <a href='"&PathVirtualArquivos&""&ParametroPasta&"/"&arquivo.name&"'><font color = #0066cc>"&arquivo.name&"</a><br>"
next

Response.Write "</font>"
response.write "</div><br>"
%>

<hr color=black>
<font color=black face=Verdana size=2>
<a href='#' onClick='history.go(-1)'><font color=black>Voltar</font></a> | 
<%
response.write "<a href='"&PathScript&"?Pasta="&ParametroPasta&"'>"
response.write "Refresh</font></a>"
%>
</font>

É um script bem legal para Navegar entre "Diretórios e Arquivos".

 

 

 

Espero ter ajudado,

 

vlw

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom dia Wilnet

 

Seu script é muito bom, só precisei ajustar os caminhos de meus arquivos, mas continuo com o problema: linkei o caminho dos filmes (que estão na pasta D:), bem como de suas capas que já aparecem no navegador, mas quando eu clico em qualquer filme, não há nenhuma ação, ou seja o filme não abre.

 

Fiz o teste colocando o filme na mesma pasta do site, deu o mesmo resultado.

<%
'Bloco de código que faz com que a página não seja armazenada em cache, evitando que o usuário
'visualize arquivos/pastas que não estão mais no servidor ou não visualize arquivos/pastas novos:

Response.Buffer=true
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
Response.ExpiresAbsolute = #January 1, 1990 00:00:01#
Response.Expires=Now()-1
Response.AddHeader "Cache-Control", "must-revalidate"
Response.AddHeader "Cache-Control", "no-cache"
%>
<%
'Configurações do script:

'Parametro passado pela URL quando se clica em uma determinada pasta ou arquivo:
ParametroPasta = Request.QueryString("Pasta")

'A session abaixo deve ser alterada para o caminho físico onde estarão os arquivos e subdiretórios a serem acessados:
Session("Path") = "D:\filmeshd"&ParametroPasta&""
Path = Session("Path")
'A variável abaixo deve ser alterada para o caminho virtual das pastas no servidor:
PathVirtualArquivos = "D:\filmeshd"
'A variável abaixo deve ser alterada para o caminho virtual deste script:
PathScript = "/FilmesHD/default.asp"

'Criando o objeto Filesystem Object:
SET FSO = Server.CreateObject("Scripting.FileSystemObject")
'Setando o caminho que será indicado como pasta raiz:
Set Pasta = FSO.GetFolder(""&Path&"")
'Solicitando a lista de arquivos para a pasta raiz:
set arquivos = pasta.files
'Setando a pasta raiz:
set Raiz = Pasta
'Verificando as subpastas da pasta raiz:
Set Pastas = Raiz.SubFolders

'Verificando o Nome da pasta Raiz:
Nome = pasta.name

'Verificando se há subpastas:

contador = 0
for each subpastas in pastas
contador = contador+1
next

%>
</b>
<%
Response.write "<br><div align=left>"
Response.Write "<font face=arial size=2>"

if contador <> 0 then

'Fazendo um loop pelas subpastas da pasta raiz:
for each subpastas in Pastas
response.Write "<img border=0 src='fold.gif' align=top><a href='"&PathScript&"?Pasta="&ParametroPasta&"\"&subpastas.name&"'><font color = #003366>"&subpastas.name&"</font></a><br>"
next



end if

response.write "<br>"

'Fazendo um loop pelos arquivos da pasta:
Apostila = "apostilas"
for each arquivo in arquivos
response.write "<img border=0 src='Capas/"&arquivo.name&".jpg' width='135' height='182' alt=''> <a href='"&PathVirtualArquivos&""&ParametroPasta&"/"&arquivo.name&"'><font color = #0066cc>"&arquivo.name&"</a><br>"
next

Response.Write "</font>"
response.write "</div><br>"
%>

<hr color=black>
<font color=black face=Verdana size=2>
<a href='#' onClick='history.go(-1)'><font color=black>Voltar</font></a> | 
<%
response.write "<a href='"&PathScript&"?Pasta="&ParametroPasta&"'>"
response.write "Refresh</font></a>"
%>
</font>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esse D: é diretório do seu HD?

 

O script funciona corretamente.

 

você deve está errando ao passar o PATH de forma correta, talvez seja isso.

 

 

Ou tb, apenas para efeito de testes, tente abrir uma Imagem ao invés de um Filme, apenas ver o comportamento das extensões dos arquivos.

Compartilhar este post


Link para o post
Compartilhar em outros sites

dá um response.write no path final do filme para ver como esta sendo passado ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esse D: é diretório do seu HD?

 

O script funciona corretamente.

 

você deve está errando ao passar o PATH de forma correta, talvez seja isso.

 

 

Ou tb, apenas para efeito de testes, tente abrir uma Imagem ao invés de um Filme, apenas ver o comportamento das extensões dos arquivos.

 

 

Isso, D: é meu diretório do HD onde esta os filmes

 

Na verdade esta passando corretamente o Path, para se ter uma ideia, o arquivo esta abrindo as capas e inserindo os links quando eu clico no link não abre o filme, mas se eu clico com o botão direito, copio o link e colo no browser o filme começa a rolar.

 

 

Só não entendi porque quando eu clico não abre.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Para efeito de testes, eu publiquei um "Vídeo.avi" na minha pasta "Fotos".

 

Ao abrir a página default.asp, ele listou tudo, os Arquivos e Diretório.

 

Quando cliquei no Vídeo, ele TAMBÉM NÃO ABRIU, foi forçado o Download deste vídeo, já com imagens ele abre normal.

 

Resumo dos testes:

 

Testei as extensões: Image, PDF ( Abre Normal )

 

Testei AVI, Doc, XLS ( Não Abre ) - Neste caso é forçado o download desses arquivos.

 

 

Faça seus testes tb, e veja se esse comportamento é vdd.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Para efeito de testes, eu publiquei um "Vídeo.avi" na minha pasta "Fotos".

 

Ao abrir a página default.asp, ele listou tudo, os Arquivos e Diretório.

 

Quando cliquei no Vídeo, ele TAMBÉM NÃO ABRIU, foi forçado o Download deste vídeo, já com imagens ele abre normal.

 

Resumo dos testes:

 

Testei as extensões: Image, PDF ( Abre Normal )

 

Testei AVI, Doc, XLS ( Não Abre ) - Neste caso é forçado o download desses arquivos.

 

 

Faça seus testes tb, e veja se esse comportamento é vdd.

 

 

Estava fazendo estes testes, fotos abre, desde que esteam em formato JPG se for PNG ou GIF ao clicar não acontece nada, mas JPG ele abre o visualizador de fotos.

 

Para os videos, ele lista todos eles incluindo as pastas contidas no caminho, mas ao clicar em qualquer vídeo não inicia nenhuma reprodução.

 

Fiz o teste assim, cliquei com o botão direito sobre um dos arquivos listados copiei o link que o sistema esta apontando e colei no browser, quando clico enter funciona, isso significa que esta certinho tanto a localização quanto ao link criado pelo sistema. Só não abre.

 

Estranho isso, como você esta forçando o link e vídeo?

Compartilhar este post


Link para o post
Compartilhar em outros sites

para abrir (executar) o arquivo de vídeo, o melhor será vc executá-lo dentro de um player, vc pode usar um player em jquery ou até mesmo HTML5, fique perfeito pra seu caso.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.