Vbscript - listar diretório e conteúdo

[dimi 0]

Olá.Preciso listar o conteúdo de uma pasta específica, incluindo arquivos e subpastas + arquivos delas. Se for encontrado determinado arquivo, deve ser excluído.Isso consegui fazer utilizando o asp, mas preciso em Vbscript pois estou criando uma rotina para exclusão de logs antigos e deve ter chamada local e não remota (como no Asp.)Desde já agradeço,Dimi

[dimi 0]

Consegui fazer. Taí se alguém precisar.=========================Option ExplicitOn Error Resume Next'variáveisDim dt,trat,dia,mes,anodim fso,folder,subFolders,a, Server,folderOne,folderTwo,folderThree,folderFour,fs,arquivo,response,file'Gera o nome do arquivo, formato: ex(aa)(mm)(dd).logdia = mid(date,3,2)trat = Left(dia,1)if trat = "/" then dia = 0&mid(date,5,1) ano = Right(date,4)mes = Left(date,2)trat = Right(mes,1)If trat = "/" then mes = 0&Left(date,1)mes = mes - 1 If mes = 0 Then mes = 12If mes = 12 Then ano = ano - 1dt = Right(ano,2)&mes&diaarquivo="ex"&dt&".sav"file="ex"&dt&".log"Set fso = CreateObject("Scripting.FileSystemObject")Set folder = fso.GetFolder("e:\webalizer\")Set subFolders = folder.SubFoldersFor Each folderOne in SubFoldersSet folder = fso.GetFolder("e:\webalizer\"&folderOne.Name)Set subFolders = folder.SubFolders For Each folderTwo in SubFolders Set folder = fso.GetFolder("e:\webalizer\"&folderOne.Name&"\"&folderTwo.Name) Set subFolders = folder.SubFolders For Each folderThree in SubFolders Set folder = fso.GetFolder("e:\webalizer\"&folderOne.Name&"\"&folderTwo.Name&"\logs\") Set subFolders = folder.SubFolders For Each folderFour in SubFolders Set folder = fso.GetFolder("e:\webalizer\"&folderOne.Name&"\"&folderTwo.Name&"\logs\"&folderFour.Name) Set fs = CreateObject("Scripting.FileSystemObject") if (fs.fileexists("e:\webalizer\"&folderOne.Name&"\"&folderTwo.Name&"\logs\"&folderFour.Name&"\"&(arquivo))) then Set a = fs.GetFile("e:\webalizer\"&folderOne.Name&"\"&folderTwo.Name&"\logs\"&folderFour.Name&"\"&(arquivo)) a.Delete end if Set a = Nothing if (fs.fileexists("e:\webalizer\"&folderOne.Name&"\"&folderTwo.Name&"\logs\"&folderFour.Name&"\"&(file))) then Set a = fs.GetFile("e:\webalizer\"&folderOne.Name&"\"&folderTwo.Name&"\logs\"&folderFour.Name&"\"&(file)) a.Delete end if Set a = Nothing Set fs = Nothing Next Next NextNextSet subFolders = NothingSet folder = NothingSet fso = Nothing