none
script para apagar extensões em vbs RRS feed

  • Pergunta

  • olá amigos eu tenho um script para isso só que em .bat 
    For /R c: %%F in (*.mpg *.mp3 *.wmv) do del /f /s /q %%F
    só que eu estou migrando os scripts para vb só que não consegui fazer se poderem ajudar eu agradeço
    segunda-feira, 5 de janeiro de 2009 11:21

Respostas

  • Olá,

    Segue o script:


    'SCRIPT RETIRADO DO SITE: http://forums.microsoft.com/TechNet-BR/ShowPost.aspx?PostID=3899835&SiteID=29

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

    'Caminho
    strPasta = "C:\teste"

    'extensões
    arrTipos = "log;jpg;mp3"


    arrTipos = split(arrTipos,";")

    Set colFiles = objWMIService.ExecQuery _
        ("ASSOCIATORS OF {Win32_Directory.Name='" &strPasta& "'} Where " _
            & "ResultClass = CIM_DataFile")

    For Each objFile in colFiles
      For Each tipo in arrTipos
       If objFile.Extension = tipo Then
             objFile.Delete
         End If
     Next
    Next



    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    • Marcado como Resposta dcorteztec terça-feira, 7 de abril de 2009 17:09
    segunda-feira, 5 de janeiro de 2009 11:48