Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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>
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