Ir para conteúdo

POWERED BY:

Arquivado

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

William Lepinski

Função

Recommended Posts

Existe alguma tag ou função do ASP para saber o tamanho de um arquivo...Por exemplo: Estou desenvolvendo uma página de administração de banco de dados e queria passar para o administrador diversos dados sobre o DB, pois então, existe alguma função relativa ao ASP que me retorne o Tamanha (KB ou MB) do Arquivo !!!!EH Urgente !_ NeoN _

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tenta isso:

Function PegarTamanho(Arquivo)Set FSO = Server.CreateObject("Scripting.FileSystemObject")Set Arquivo = FSO.GetFile(Arquivo)PegarTamanho = Arquivo.SizeSet Arquivo = NothingSet FSO = Nothing
Daí você chama a função assim:
<%=PegarTamanho("C:\Autoexec.bat")%>
O Tamanho aparecerá em Bytes, para transformar em KBytes divida o Tamanho por 1024, e para transformar em MBytes divida por 1048576 ok???

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tenta isso:

Function PegarTamanho(Arquivo)Set FSO = Server.CreateObject("Scripting.FileSystemObject")Set Arquivo = FSO.GetFile(Arquivo)PegarTamanho = Arquivo.SizeSet Arquivo = NothingSet FSO = Nothing
Daí você chama a função assim:
<%=PegarTamanho("C:\Autoexec.bat")%>
O Tamanho aparecerá em Bytes, para transformar em KBytes divida o Tamanho por 1024, e para transformar em MBytes divida por 1048576 ok???
valew....naun tentei ainda....mais achu q vai da certo...valew. !

Compartilhar este post


Link para o post
Compartilhar em outros sites

Otima Referencia FSO

 

http://www.sloppycode.net/fso/

 

A função para formatar o tamanho que e mostrtado em bytes para KB, MB , GB ou afins

 

Function FormatSize (givenSize)  If (givenSize < 1024) Then 	 FormatSize = givenSize & " B"  ElseIf (givenSize < 1024*1024) Then 	 FormatSize = FormatNumber(givenSize/1024,2) & " KB"  ElseIf (givenSize < 1024*1024*1024) Then 	 FormatSize = FormatNumber(givenSize/(1024*1024),2) & " MB"  Else 	 FormatSize = FormatNumber(givenSize/(1024*1024*1024),2) & " GB"  End If	End Function

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.