none
Compactar Arquivo RRS feed

  • Pergunta

  •  

    Galera tudo na boa?

    Estou precisando de um script para compactar uma pasta.

    Preciso compactar a pasta e enviar para outro local.

    é tipo um backup.

    Quem puder me ajudar.

    Vlw.

    quarta-feira, 28 de maio de 2008 14:11

Respostas

  • Dany Sales segue o script para isso

     

    strComputer = "."
    Set ObjShell = Createobject("wscript.shell")

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    Set colFolders = objWMIService.ExecQuery _
        ("Select * From Win32_Directory Where Name = 'Caminho da pasta para onde vai ser copiado os arquivos'")

    For Each objFolder in colFolders
        errResults = objFolder.Compress
        objshell.run "xcopy caminho da pasta de origem " & objfolder.path & " /E"
    Next

     

    PS: coloca o caminho da pasta para onde vai os arquivos assim ex: C:\\teste

    quinta-feira, 29 de maio de 2008 17:31