Ir para conteúdo

POWERED BY:

Arquivado

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

Maux

tamanho do arquivo

Recommended Posts

eae galera...to aki hj pra sabe como faço para contar o tamanho do arquivo....o começo do codigo eu até ja sei, eu não sei é usa a propriedade do FSO que conta o tamanho do arquivo...se alguem puder ajudar eu agradeço....abraxxx

Compartilhar este post


Link para o post
Compartilhar em outros sites

eu usei aqui agorinha e funcionou!filename = "c:/upload/arquivo.asp"Set fso = CreateObject("Scripting.FileSystemObject")set arquivo = fso.GetFile(filename)if arquivo.Size > 4000 thenresponse.write "Tamanho inválido!"else'response.write "Tamanho permitido"end if

Compartilhar este post


Link para o post
Compartilhar em outros sites

eae... na verdade com o que você me passou eu fiz outro codigo.. ficou bem legal...

testem todo para ver...

abraços....

<title>Teste de arquivo</title><div align="center">  <form action="" method="post" name="test" >	<strong>Insira aqui o arquivo a ser testado:</strong>	<input type="file" name="arq" />	<br />	<input type="submit" value="TESTAR" name="tst" />  </form></div><%filename = request.form("arq")response.write "<B>" & filename & "</b>"filename = trim(filename)response.write "<div align='center'>"if filename = "" thenresponse.write "<B>Selecione um arquivo no campo fornecido acima!</b>"elseSet fso = CreateObject("Scripting.FileSystemObject")if fso.FileExists (filename) thenset arquivo = fso.GetFile(filename)response.write "<center><b>Nome do arquivo: </b></center>" & arquivo.name & "<BR>"a = arquivo.sizeasd = len (arquivo.name)asd = trim(right(arquivo.name,3))if a > 10000 then			a = a			a = replace(a,"<BR>"," ")			aa = len(a)			on error resume next			a =  mid(a, 1, aa - 6)			a = a & "MB"response.write "<b>Tamanho: </b>" & a & "<BR>"response.write "<b>Tipo: </b>" & asdelseif a > 1000 then			a = a			a = replace(a,"<BR>"," ")			aa = len(a)			a =  mid(a, 1, aa - 3)			a = a & "kbs"response.write "<b>Tamanho: </b>" & a & "<BR>"response.write "<b>Tipo: </b>" & asdelseresponse.write  "<b>Tamanho: </b>" & a & "bytes" & "<BR>"response.write "<b>Tipo: </b>" & asdend ifelseresponse.write "<b>Arquivo nao encontrado!</b>"end ifend ifif asd = "jpg" or asd = "gif" or asd = "png" thenresponse.write "<BR><b>Visualização</b><BR>"response.write "<img src='" & filename & "'>"end ifif asd = "mp3" thenresponse.write "<bgsound src='"& filename & "' loop='-1'>"end ifresponse.write "</div>"%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

codigo ta legal ^^ bem funcional

mas ele erra quando é ".zip" =p

não sei se tem como resolver

C:\linux.zipNome do arquivo: linux.zipTamanho: 42412MBTipo: zip

o tamanho original é 424kb

Compartilhar este post


Link para o post
Compartilhar em outros sites

tem sim.. hehe.. o erro ta nos ifs na contagem de tamanho... vo fazer testes aqui e posto aki a solução...abrass

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.