none
Script para ler arquivos comprimidos

    Pergunta

  • Existe algum Script que consiga ler o que tem dentro dos arquivos comprimidos ??

    Ex: Preciso de um script que leia se existe extenções MP3, AVI, MPEG, etc dentro da extensao RAR ou ZIP...


    David Dellacenta http://daviddellacenta.spaces.live.com || http://www.andersonpatricio.org || http://www.itcentral.com.br || http://lfdias.mvpbrasil.com.br || http://ffazzani.spaces.live.com
    sexta-feira, 30 de abril de 2010 12:15

Respostas

  • Achei isso no forum visualbasicscript.com. O script se baseia em um aplicativo 7za.exe, justamente usado para busca dentro de arquivos compactados. Espero que ajude. Este script procura e excluí arquivos mp3 dentro de um .zip 

    'Script start

    strDir = "D:\folderpath"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objShell = CreateObject("WScript.Shell")

    Set objDir = FSO.GetFolder(strDir)
    getInfo(objDir)
    Sub getInfo(pCurrentDir)
    For Each aItem In pCurrentDir.Files
    If LCase(Right(Cstr(aItem.Name), 3)) = "zip" Then
    wscript.echo aItem.path
    objshell.run "c:\7za d " & aItem.path & " *.mp3" 'Download 7za.exe from internet and place the exe in the specified path. Its free download
    End If
    If LCase(Right(Cstr(aItem.Name), 3)) = "mp3" Then
    wscript.echo aItem.path
    aItem.delete(True)
    End If
    Next
    For Each aItem In pCurrentDir.SubFolders
    'wscript.Echo aItem.Name & " passing recursively"
    getInfo(aItem)
    Next
    End Sub

    'Script End


    Se foi útil, não se esqueça de Marcar como Resposta. Cláudio Costa - MCITP Enterprise Administrator / MCSE
    sábado, 1 de maio de 2010 00:07