none
Pegar tamanho pasta RRS feed

  • Pergunta

  • Bom dia Galera!
    Usei a rotina abaixo para pegar o tamanho físico de uma pasta.
    Porém preciso pegar o tamanho da pasta Desktop, Meus documentos que estão dentro da Documents and Settings e qdo executo a rotina abaixo fala que eu não tenho acesso a pasta Documents and Settings.

    Como que eu faço para pegar o tamanho da pasta Documents and Settings e consequentemente Desktop e Meus Documentos?

    <%
    dim fs,fo
    set fs = Server.CreateObject("Scripting.FileSystemObject")
    set fo = fs.GetFolder("C:\Documents and Settings")

    Response.Write("O tamanho da pasta é: ")
    Response.Write(fo.Size & " bytes.")
    set fo=nothing
    set fs=nothing

    %>

    Muito obrigada.

    sexta-feira, 6 de novembro de 2009 11:52

Respostas

  • Tente isso:

    Dim objFSO As Object
    Dim objFolder as Object
    Dim i As Long
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("C:\Program Files")
    i = objFolder.Size
    
    Set objFolder = Nothing
    Set objFSO = Nothing

    Abraço
    terça-feira, 10 de novembro de 2009 19:58

Todas as Respostas