none
Script para executar todos os scripts de uma pasta RRS feed

  • Pergunta

  • Boa noite,

     

    Gostaria de saber como faço para que um script em vbs execute todos os scripts em vbs de uma determinada pasta, desde já agradeço a ajuda.

     

    Atenciosamente

     

    Fernando

    terça-feira, 5 de agosto de 2008 02:13

Respostas

  • Em .VBS

    sFolder = "C:\temp"
    
    Set objShell = Wscript.CreateObject("WScript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(sFolder)
    Set files = folder.Files
    
    For each folderIdx In files
    	if lcase(right(folderIdx.path,3)) = "vbs" then
    		objShell.Run """" & folderIdx.path & """"
    	end if
    Next

    Utilize este .BAT, ele coloca em um arquivo a lista de .vbs que estão na pasta e depois lê este arquivo executando um a um.

    .BAT

    set scr_pasta=C:\temp
    
    dir /b %scr_pasta%\*.vbs > %temp%\scripts.txt
    
    for /f "tokens=*"  %%S IN (%temp%\scripts.txt) do cscript "%scr_pasta%\%%S"

    ---------------------------

    Multirão de Respostas

    ---------------------------


    Fábio de Paula Junior


    quinta-feira, 1 de novembro de 2012 01:14
    Moderador