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
