Ir para conteúdo

POWERED BY:

Arquivado

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

paulojorge3l

Implementar - Página para visualizar arquivos no Servidor

Por , em ASP Clássico

Recommended Posts

paulojorge3l    0

paulojorge3l
Postado

Pessoal achei esse código na net e gostária de colocar mais uma coisa nele a Dimensão da imagem ele mostra quase tudo o nome do arquivo o tipo de imagem o tamanho menos as dimensões da imagen alguem pode ajudar a colocar mais isso pra ficar bom e poder ajudar a todos que tambem precisem disso isso ta sendo uma mão na roda para o meu site com a dimensão vai melhorar valew abraços a todos

 

 

 

ASP
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

<title> </title>

 

</head>

<a name="top"></a>

<body>

<%

'define as constantes usadas pelo objeto FileSystemObject usadas  no projeto

Const ForReading = 1, ForWriting = 2, ForAppending = 3

Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

 

'recebe o diretório da requisição como 'f'

diretorio = ("temp")

 

if diretorio = "" then

 

 pastaEspecifica = server.mappath(".")

 

 Set arquivoSistema = CreateObject("Scripting.FileSystemObject")

 Set exemplo = arquivoSistema.GetFolder(pastaEspecifica)

 Set colecaoPastas = exemplo.SubFolders

 

 For Each subPastas in colecaoPastas

 

 Next

 

 set arquivoSistema = nothing

 Response.Write listaPasta

 

else

 

caminhoArquivo = server.mappath(".") & "" & diretorio

tituloArquivo = caminhoArquivo & "imagens.txt"

 

Set arquivoSistema = CreateObject("Scripting.FileSystemObject")

 

Dim Vetor()

 

 If arquivoSistema.FileExists(tituloArquivo) then

  set file = arquivoSistema.GetFile(tituloArquivo)

  Set TextStream = file.OpenAsTextStream(ForReading,TristateUseDefault)

  contaTitulo = 0

 

  Do While Not TextStream.AtEndOfStream

   Linha = TextStream.readline

   ReDim Preserve Vetor(contaTitulo)

   Vetor(contaTitulo) = Linha

   'response.write contaTitulo & " " & Vetor(contaTitulo) & "<br>"

   contaTitulo = contaTitulo + 1

   'Response.write Linha

  Loop

 

  textStream.close

 

 end if

 

 Set exemplo = arquivoSistema.GetFolder(caminhoArquivo)

 Set colecaoArquivos = exemplo.Files

 contaArquivo = 0

 

 For Each file in colecaoArquivos

 

  Ext = UCase(Right(File.Path, 3))

 

  If Ext = "JPG" OR Ext = "GIF" Then

                 on error resume next

          dados = Vetor(contaArquivo)

          on error goto 0

          caminhoReferencia = diretorio & "/" & file.name

          Nomearquivo = nome & file.name

   pesoarquivo = peso & file.size

   tipoarquivo = tipo & file.type

          caminhoImagem = "<br>Nome da Imagem: " & Nomearquivo & "<br>Peso do Arquivo: " & pesoarquivo & " bytes<br>" & tipoarquivo & "<br><a href='" & caminhoReferencia & "' title='Galeria de Imagens' border=0><img src='" & caminhoReferencia & "'></a><br>"

                 encheLista = encheLista & caminhoImagem & vbcrlf

                 encheLista = encheLista & "<BR>"

          contaArquivo = contaArquivo + 1

          dados = ""

  end if

 Next

 set arquivoSistema = Nothing

 encheLista = encheLista & "<br>"

%>

 

<h3>Visualizando arquivos da pasta <%=diretorio%></h3>

 

<p><%=encheLista%></p>

 

<% end if %>

<p><a href="#top" title="retorna ao topo">topo da página</a></p>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Cara, Dê uma pesquisada aqui mesmo no fórum que tem alguns tópicos sobre pegar as dimensões de arquivos de imagens. Depois é só adaptar em seu código.

 

Busca do Fórum iMasters

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