Ir para o conteúdo

Pegar Tamanho De Arquivos Em Outros Servidores


Criado por Patrique, Out 10 2010 03:09

Não há respostas para este tópico
  • Por favor, faça o login para responder

#1 Patrique

Patrique
  • Patrique
  • Colaborador
  • 13 Revisões

Revisou 10 outubro 2010 - 03:09

*
REVISÃO POPULAR!

<%
Function ArquivoRemoto(UrlArquivo)
    Dim monta,calculo(1),arquivo
    Set monta = CreateObject("MSXML2.XMLHTTP")
    monta.Open "GET",urlarquivo, False
    monta.setRequestHeader "Range","bytes=-1"
    monta.send
    arquivo = Split(monta.GetResponseHeader("Content-Range") & "/0","/")
    Set monta = Nothing
    calculo(0) = CLng(arquivo(1))
    calculo(1) = calculo(0) / 1024
    If calculo(1) > 1024 Then
        calculo(1) = Round(calculo(1) / 1024,2) & "MB"
    Else
        calculo(1) = Round(calculo(1),2) & "KB"
    End If
    ArquivoRemoto = calculo
End Function

Dim urlarquivo,calculotamanho
urlarquivo = "http://forum.imasters.uol.com.br/public/style_images/imasters2010/logo.png"
calculotamanho = ArquivoRemoto(UrlArquivo)
Response.Write "O tamanho deste arquivo é <strong>"& calculotamanho(1)&"</strong>"
%>

Com ele você conseguira pegar o tamanho de arquivos que estiverem em outros servidores.

[]'s




1 usuário(s) está(ão) lendo este código

1 membro(s), 0 visitante(s) e 0 membros anônimo(s)