Ir para conteúdo

POWERED BY:

Arquivado

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

ricardo coelho designer

Visualizar Bd em uma pasta

Por , em ASP Clássico

Recommended Posts

ricardo coelho designer    0

ricardo coelho designer
Postado

Bom dia!!Gente peço desculpas mas estou meio atrapalhado. Ontem consegui visualizar as colunas de um bd, depois me enrolei de novo, pois eu tentei fazer a visualização do BD dentro de uma pasta.1 - Preciso visualizar o Bd (somente Bd) dentro de uma pasta.Como faço...? Não estou conseguindo fazer isso.Há o bd é access.Mas agradeço desde já.

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

bom, acompanhei seu outro tópico, agora você quer que mostre os arquivos access que tem dentro da pasta?se é isso utilize FSO pra ler o conteudo da pasta

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Há uma propriedade no FSO que exibe a extensão do arquivo, utilize um IF para exibir apenas os arquivos com sua extensão.

 

Oooops, falha minha, acabei de verificar e não existe propriedade que retorne a extensão, apenas o tipo de arquivo, mas é só pegar o nome do arquivo e retirar a extensão para comparar.

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

verifique a extensão, se após o ponto no nome do arquivo or igual a mdb então lista

Compartilhar este post

Link para o post
Compartilhar em outros sites

ricardo coelho designer    0

ricardo coelho designer
Postado

Olha estou com esse codigo, só não consegui entender onde eu coloco para identificar o BD.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><title>Navegação em arquivos/pastas armazenados no Servidor utilizando FSO</title><body alink=black vlink=black link=black><%Response.Buffer=trueResponse.AddHeader "cache-control", "private"Response.AddHeader "pragma", "no-cache"Response.ExpiresAbsolute = #January 1, 1990 00:00:01#Response.Expires=Now()-1Response.AddHeader "Cache-Control", "must-revalidate"Response.AddHeader "Cache-Control", "no-cache"%><%ParametroPasta = Request.QueryString("Pasta")Session("Path") = "C:\Inetpub\wwwroot\AccessAdmin\AccessAdmin\arvorefso\"&ParametroPasta&""Path = Session("Path")PathVirtualArquivos = "/accessadmin/accessadmin/arvorefso"PathScript = "\AccessAdmin\AccessAdmin\arvorefso\default.asp"SET FSO = Server.CreateObject("Scripting.FileSystemObject")Set Pasta = FSO.GetFolder(""&Path&"")set arquivos = pasta.filesset Raiz = PastaSet Pastas = Raiz.SubFoldersNome = pasta.namecontador = 0for each subpastas in pastascontador = contador+1next%><%if contador <> 0 thenfor each subpastas in Pastasresponse.Write ""&subpastas.name&""nextend ifresponse.write "<br><br>"for each arquivo in arquivosresponse.write ""&arquivo.name&"<br>"nextResponse.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></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Aqui

for each arquivo in arquivos
response.write ""&arquivo.name&"<br>"
next

Você vai separar para testar, algo +/- assim:

for each arquivo in arquivos
Arr_ext = Split(arquivo.name,".")
If Lcase(Arr_ext(Ubound(Arr_ext))) = "mdb" Then
	response.write ""&arquivo.name&"<br>"
End If
next

Compartilhar este post

Link para o post
Compartilhar em outros sites

ricardo coelho designer    0

ricardo coelho designer
Postado

GENTE GENTE, VCS SÃO OS CARAS....

 

SEM COMENTÁRIOS, ERA ISSO MESMO QUE EU QUERIA.

 

BOM AGORA SEGUE ABAIXO O CÓDIGO FUNCIONANDO.

 

1 - ESSE CÓDIGO É PARA VISUALIZAR BD DENTRO DE UMA PASTA:

 

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><title>Navegação em arquivos/pastas armazenados no Servidor utilizando FSO</title><body alink=black vlink=black link=black><%Response.Buffer=trueResponse.AddHeader "cache-control", "private"Response.AddHeader "pragma", "no-cache"Response.ExpiresAbsolute = #January 1, 1990 00:00:01#Response.Expires=Now()-1Response.AddHeader "Cache-Control", "must-revalidate"Response.AddHeader "Cache-Control", "no-cache"%><%ParametroPasta = Request.QueryString("Pasta")Session("Path") = "C:\Inetpub\wwwroot\AccessAdmin\AccessAdmin\arvorefso\"&ParametroPasta&""Path = Session("Path")PathVirtualArquivos = "/accessadmin/accessadmin/arvorefso"PathScript = "\AccessAdmin\AccessAdmin\arvorefso\default.asp"SET FSO = Server.CreateObject("Scripting.FileSystemObject")Set Pasta = FSO.GetFolder(""&Path&"")set arquivos = pasta.filesset Raiz = PastaSet Pastas = Raiz.SubFoldersNome = pasta.namecontador = 0for each subpastas in pastascontador = contador+1next%><%if contador <> 0 thenfor each subpastas in Pastasresponse.Write ""&subpastas.name&""nextend ifresponse.write "<br><br>"for each arquivo in arquivos	Arr_ext = Split(arquivo.name,".")	If Lcase(Arr_ext(Ubound(Arr_ext))) = "mdb" Then		response.write ""&arquivo.name&"<br>"	End IfnextResponse.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></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado 
Count_mdb = 0
for each arquivo in arquivos
Arr_ext = Split(arquivo.name,".")
If Lcase(Arr_ext(Ubound(Arr_ext))) = "mdb" Then
	Count_mdb = Count_mdb + 1
	response.write ""&arquivo.name&"<br>"
End If
next
If Count_mdb = 0 Then
	Response.Write "Não tem arquivo de BD."
End If

Assim.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito