none
Tamanho de pasta em pc remoto RRS feed

  • Pergunta

  •  

    Ola senhores,

     

    Gostaria de uma ajuda de voces. Preciso consultar o tamanho da pasta Meus Documentos de alguns usuarios remotos para dimensionar meu servidor para aplicaçao de Folder Redirect. Alguem sabe como posso fazer isso?

     

    Abraços a todos,

    Italo Teixeira

    quarta-feira, 22 de outubro de 2008 12:17

Respostas

  •  Marcio Sousa wrote:

    Italo,

     

    Segue abaixo o script que uso para consultar o tamanho das pastas na rede

     

    '----------------------------------------------------------------------------------------------------------------

    'Script para listar nome e tamanho das sub pastas

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFile = objFSO.CreateTextFile("C:\List.txt")        'local e nome do txt para criar
    objFile.close
    Set arquivo = objFSO.OpenTextFile("C:\List.txt", 8)       'abrir arquivo

    Set objFolder = objFSO.GetFolder("\\servidor\pasta$")         ' pasta pai a ser verificada

    Set colSubfolders = objFolder.Subfolders

    For Each objSubfolder in colSubfolders
        arquivo.writeline objSubfolder.Name & " " & objSubfolder.Size    'escreve informação no arquivo
    Next

    Wscript.Echo "FIM"

    '----------------------------------------------------------------------------------------------------------------

     

     

     

    Senhores,

     

    Baseado no script acima, consegui realizar o script com sucesso buscando diretamente o tamanho da pasta indicada conforme o script que editei abaixo. O script citado pelo Marcio Souza que também é muito útil retorna o tamanho dos arquivos e subpastas contidos dentro da pasta informada.

    Segue código editado:

     

    '----------------------------------------------------------------------------------------------------------------
    'Script para listar nome e tamanho das sub pastas

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFile = objFSO.CreateTextFile("C:\List.txt")        'local e nome do txt para criar
    objFile.close
    Set arquivo = objFSO.OpenTextFile("C:\List.txt", 8)       'abrir arquivo

    Set objFolder = objFSO.GetFolder("\\servidor\c$\Documents and Settings\usuario\Meus Documentos")     ' pasta pai a ser verificada

    arquivo.writeline objFolder.Name & " " & objFolder.Size

    Wscript.Echo "FIM"
    '----------------------------------------------------------------------------------------------------------------

     

    Marcio, estarei marcando esse post como resposta devido à adaptação do código conforme o solicitado, mas como citei acima, o seu código é bastante útil também para quem quer buscar o conteúdo da pasta citada, por isso estou citando ele também nesse post den resposta da pergunta.

     

    Grato a todos!

    quarta-feira, 22 de outubro de 2008 19:32

Todas as Respostas

  • Italo,

     

    Segue abaixo o script que uso para consultar o tamanho das pastas na rede

     

    '----------------------------------------------------------------------------------------------------------------

    'Script para listar nome e tamanho das sub pastas

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFile = objFSO.CreateTextFile("C:\List.txt")        'local e nome do txt para criar
    objFile.close
    Set arquivo = objFSO.OpenTextFile("C:\List.txt", 8)       'abrir arquivo

    Set objFolder = objFSO.GetFolder("\\servidor\pasta$")         ' pasta pai a ser verificada

    Set colSubfolders = objFolder.Subfolders

    For Each objSubfolder in colSubfolders
        arquivo.writeline objSubfolder.Name & " " & objSubfolder.Size    'escreve informação no arquivo
    Next

    Wscript.Echo "FIM"

    '----------------------------------------------------------------------------------------------------------------

     

     

    quarta-feira, 22 de outubro de 2008 14:33
  • Italo,

    Eu uso um programa muito bom chamado "TreeSizePro", dê uma olhada.....

    Além de verificar o tamanho do diretórios, você tem um gerenciamento dos arquivos e muitas opções....

    Você também pode analisar diretórios remotamente !!!

    Abs !!
    quarta-feira, 22 de outubro de 2008 15:05
  • Grato senhores, vou dar uma olhada com as duas opçoes. O ideal seria em script mesmo evitando instalaçoes, mas de toda forma se for uma boa soluçao adotarei igualmente.

     

    Abraços a todos!!!

     

    quarta-feira, 22 de outubro de 2008 17:02
  •  Marcio Sousa wrote:

    Italo,

     

    Segue abaixo o script que uso para consultar o tamanho das pastas na rede

     

    '----------------------------------------------------------------------------------------------------------------

    'Script para listar nome e tamanho das sub pastas

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFile = objFSO.CreateTextFile("C:\List.txt")        'local e nome do txt para criar
    objFile.close
    Set arquivo = objFSO.OpenTextFile("C:\List.txt", 8)       'abrir arquivo

    Set objFolder = objFSO.GetFolder("\\servidor\pasta$")         ' pasta pai a ser verificada

    Set colSubfolders = objFolder.Subfolders

    For Each objSubfolder in colSubfolders
        arquivo.writeline objSubfolder.Name & " " & objSubfolder.Size    'escreve informação no arquivo
    Next

    Wscript.Echo "FIM"

    '----------------------------------------------------------------------------------------------------------------

     

     

     

    Oi Marcio,

     

    Fiz algumas modificaçoes no seu script, mas de toda forma ainda nao estou conseguindo buscar a pasta de meus documentos em especifico. Parece que nao esta tratando muito bem a questao de conter espaco mesmo entre aspas.

    Segue abaixo meu codigo apos modificacao:

     

    '----------------------------------------------------------------------------------------------------------------
    'Script para listar nome e tamanho das sub pastas

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFile = objFSO.CreateTextFile("C:\List.txt")        'local e nome do txt para criar
    objFile.close
    Set arquivo = objFSO.OpenTextFile("C:\List.txt", 8)       'abrir arquivo

    Set objFolder = objFSO.GetFolder("\\maquina\c$\Documents and Settings\username\Meus Documentos")     ' pasta pai a ser verificada

    Wscript.Echo "FIM"
    '----------------------------------------------------------------------------------------------------------------

     

    Tem alguma sugestao para me dar de forma que eu consiga buscar a pasta Meus Documentos?

     

    Abraços!!

     

    quarta-feira, 22 de outubro de 2008 17:51
  •  Raphael Monetto wrote:
    Italo,

    Eu uso um programa muito bom chamado "TreeSizePro", dê uma olhada.....

    Além de verificar o tamanho do diretórios, você tem um gerenciamento dos arquivos e muitas opções....

    Você também pode analisar diretórios remotamente !!!

    Abs !!

     

    Oi Raphael,

     

    Baixei a versão Free desse software e não consegui verificar uma unidade remotamente. Teria que mapear a pasta na minha máquina antes de verificar o tamanho da pasta?

     

    Abraços!!!

    quarta-feira, 22 de outubro de 2008 18:15
  • Italo,

     

    Efetuei algumas alterações que acho atender suas necessidades

     

    '----------------------------------------------------------------------------------------------------------------
    'Script para listar nome e tamanho das sub pastas

    On Error Resume Next

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFile = objFSO.CreateTextFile("C:\Temp\List.txt")        'local e nome do txt para criar
    objFile.close
    Set arquivo = objFSO.OpenTextFile("C:\Temp\List.txt", 8)       'abrir arquivo

     

    'Mapear unidade de rede-------------------------------------------

    Dim objNetwork
    Dim strDriveLetter, strRemotePath, strUserName
    strDriveLetter = "Z:"

    strcomputer = inputbox("Informe nome do computador")
    strusername = inputbox("Informe nome do login")

    strRemotePath = "\\" + strcomputer + "\c$\Documents and Settings\" + strusername

    Set objNetwork = WScript.CreateObject("WScript.Network")

    objNetwork.MapNetworkDrive strDriveLetter, strRemotePath


    'Verificar pasta--------------------------------------------------


    Set objFolder = objFSO.GetFolder("Z:\Meus Documentos")     ' pasta pai a ser 'verificada

    Set colSubfolders = objFolder.Subfolders

    For Each objSubfolder in colSubfolders
        arquivo.writeline objSubfolder.Name & " " & objSubfolder.Size    'escreve informação no arquivo
    Next

     

    'Desconectar unidade de rede----------------------------------------

    Dim objShell
    Dim bForce, bUpdateProfile
    bForce = "True"
    bUpdateProfile = "True"
    err.number = vbempty
    Set objNetwork = CreateObject("WScript.Network")
    ' Removes strDriveLetter, with bForce, pUpdate Profile
    On Error Resume Next
    objNetwork.RemoveNetworkDrive strDriveLetter, _
    bforce, bUpdateProfile

    '---------------------------------------------------------------------

    Wscript.Echo "FIM"

    WScript.Quit

    '----------------------------------------------------------------------------------------------------------------

     

    quarta-feira, 22 de outubro de 2008 19:08
  • Italo,

     

    O anterior lista as pastas dentro de "meus documentos"

     

    o abaixo, as pastas do perfil, incluindo o tamanho da pasta meus documentos

     

    '----------------------------------------------------------------------------------------------------------------
    'Script para listar nome e tamanho das sub pastas

    On Error Resume Next

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFile = objFSO.CreateTextFile("C:\Temp\List.txt")        'local e nome do txt para criar
    objFile.close
    Set arquivo = objFSO.OpenTextFile("C:\Temp\List.txt", 8)       'abrir arquivo

     

    'Mapear unidade de rede-------------------------------------------

    Dim objNetwork
    Dim strDriveLetter, strRemotePath, strUserName
    strDriveLetter = "Z:"

    strcomputer = inputbox("Informe nome do computador")
    strusername = inputbox("Informe nome do login")

    strRemotePath = "\\" + strcomputer + "\c$\Documents and Settings"

    Set objNetwork = WScript.CreateObject("WScript.Network")

    objNetwork.MapNetworkDrive strDriveLetter, strRemotePath


    'Verificar pasta--------------------------------------------------

    strfolder = "Z:\" & strusername    ' pasta pai a ser 'verificada

    Set objFolder = objFSO.GetFolder (strfolder)    

    Set colSubfolders = objFolder.Subfolders

    For Each objSubfolder in colSubfolders
        arquivo.writeline objSubfolder.Name & " " & objSubfolder.Size    'escreve informação no arquivo
    Next

     

    'Desconectar unidade de rede----------------------------------------

    Dim objShell
    Dim bForce, bUpdateProfile
    bForce = "True"
    bUpdateProfile = "True"
    err.number = vbempty
    Set objNetwork = CreateObject("WScript.Network")
    ' Removes strDriveLetter, with bForce, pUpdate Profile
    On Error Resume Next
    objNetwork.RemoveNetworkDrive strDriveLetter, _
    bforce, bUpdateProfile

    '---------------------------------------------------------------------

    Wscript.Echo "FIM"

    WScript.Quit

    '----------------------------------------------------------------------------------------------------------------

     

    quarta-feira, 22 de outubro de 2008 19:25
  •  Marcio Sousa wrote:

    Italo,

     

    Segue abaixo o script que uso para consultar o tamanho das pastas na rede

     

    '----------------------------------------------------------------------------------------------------------------

    'Script para listar nome e tamanho das sub pastas

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFile = objFSO.CreateTextFile("C:\List.txt")        'local e nome do txt para criar
    objFile.close
    Set arquivo = objFSO.OpenTextFile("C:\List.txt", 8)       'abrir arquivo

    Set objFolder = objFSO.GetFolder("\\servidor\pasta$")         ' pasta pai a ser verificada

    Set colSubfolders = objFolder.Subfolders

    For Each objSubfolder in colSubfolders
        arquivo.writeline objSubfolder.Name & " " & objSubfolder.Size    'escreve informação no arquivo
    Next

    Wscript.Echo "FIM"

    '----------------------------------------------------------------------------------------------------------------

     

     

     

    Senhores,

     

    Baseado no script acima, consegui realizar o script com sucesso buscando diretamente o tamanho da pasta indicada conforme o script que editei abaixo. O script citado pelo Marcio Souza que também é muito útil retorna o tamanho dos arquivos e subpastas contidos dentro da pasta informada.

    Segue código editado:

     

    '----------------------------------------------------------------------------------------------------------------
    'Script para listar nome e tamanho das sub pastas

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFile = objFSO.CreateTextFile("C:\List.txt")        'local e nome do txt para criar
    objFile.close
    Set arquivo = objFSO.OpenTextFile("C:\List.txt", 8)       'abrir arquivo

    Set objFolder = objFSO.GetFolder("\\servidor\c$\Documents and Settings\usuario\Meus Documentos")     ' pasta pai a ser verificada

    arquivo.writeline objFolder.Name & " " & objFolder.Size

    Wscript.Echo "FIM"
    '----------------------------------------------------------------------------------------------------------------

     

    Marcio, estarei marcando esse post como resposta devido à adaptação do código conforme o solicitado, mas como citei acima, o seu código é bastante útil também para quem quer buscar o conteúdo da pasta citada, por isso estou citando ele também nesse post den resposta da pergunta.

     

    Grato a todos!

    quarta-feira, 22 de outubro de 2008 19:32