Archive for março \27\UTC 2009|Monthly archive page

Script para listar todos os arquivos de pastas de subpastas e gerar um indice em html

Infelizmente não fiz o script para ser executado diretamente a uma unidade de disco, pois  a pasta System Volume Information apresenta erro de acesso negado.
Escolha uma pasta e teste.
Caso alguém melhore o script avise que eu coloco a versão melhorada, ou coloco um link para a mesma.

'Script para listar todos os arquivos de pastas de subpastas e gerar um indice em html.
'Fonte:  http://www.tek-tips.com/viewthread.cfm?qid=1478950&page=9 e http://www.activexperts.com/activmonitor/windowsmanagement/scripts/storage/folders/
'Romeu Avancini rmavancini@gmail.com 23-11-2008

Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForAppending = 2
Const WINDOW_HANDLE = 0
Const NO_OPTIONS = 0
Set objShell = CreateObject("Shell.Application")

Set objFolderSelect = objShell.BrowseForFolder _
    (WINDOW_HANDLE, "Selecione a pasta onde será gravado o LOG:", NO_OPTIONS, " ")       
Set objFolderItemDest = objFolderSelect.Self
strEndFolder = objFolderItemDest.Path

LogFile = strEndFolder & "\index.html"
Dim objLogFile:Set objLogFile = objFSO.CreateTextFile(logfile, 2, True)

Set objFolderSelect = objShell.BrowseForFolder _
    (WINDOW_HANDLE, "Seleciona a pasta a ser gerado o relatorio:", NO_OPTIONS, " ")
Set objFolderItem = objFolderSelect.Self
objStartFolder = objFolderItem.Path

xFiles=0
xFolders=0
Set objFolder = objFSO.GetFolder(objStartFolder)
objLogFile.Write "<Font face='Arial' Color='Red'><b> Pasta Raiz : " & objFolder.Path & "</b></Font><br>"
objLogFile.Writeline "<Font face='Arial' Color='Red' size='5'>------------------------------------------------------------------------</Font><br>"
Set colFiles = objFolder.Files
For Each objFile in colFiles
	xFiles=xFiles+1
    objLogFile.Write  "<Font face='verdana' Color='black' size='2'><a href='" & objFolder.Path &"\"& objFile.Name & "'><b>" &  objFile.Name & "</b></a></Font><br>"
    objLogFile.Writeline
Next

ShowSubfolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
		xFolders=xFolders+1
		objLogFile.Writeline "<Font face='Arial' Color='Red' size='5'>------------------------------------------------------------------------</Font><br>"
        objLogFile.Write "<Font face='Arial' Color='Red'><b>" &  Subfolder.Path & "</b></Font><br>"
		objLogFile.Writeline "<Font face='Arial' Color='Red' size='5'>------------------------------------------------------------------------</Font><br>"
        objLogFile.Writeline
        Set objFolder = objFSO.GetFolder(Subfolder.Path)
        Set colFiles =objFolder.Files
        For Each objFile in colFiles
			xFiles=xFiles+1
            objLogFile.Write "<Font face='verdana' Color='black' size='2'><a href='" & Subfolder.Path &"\"& objFile.Name & "'><b>" &  objFile.Name & "</b></a></Font><br>"
            objLogFile.Writeline
        Next
        ShowSubFolders Subfolder
    Next
End Sub

objLogFile.Writeline "<p>"
objLogFile.Write "<Font face='verdana' Color='blue' size='2'><a href=''><b>Dicas TI Blog</b></a></Font><br>"
objLogFile.Writeline "<Font face='verdana' Color='black' size='2'>" & xFiles & " arquivos nas " & xFolders & " pastas e subpastas!</font>"

objLogFile.Close
wscript.echo "Fim do script!"

wscript.quit
Anúncios

Passei na prova da VMWare VCP-310

Aê passei na bendita prova da vmware, mas ainda não sou VCP, pois preciso fazer o curso oficial para ganhar o titulo.
Basicamente eu segui as dicas do Manfrin em dicas de certificação.
Vamos esperar e rezar para o dolar abaixar, pois o valor é um pouco salgado para fazer por conta própria com o dolar em alta.

TechNet Magazine HTML Help Files

Caras, uma coisa que descobri há pouco tempo:

A Microsoft disponibiliza para downloads as edições da revista TechNet em formato .chm. Di gratiz.

http://technet.microsoft.com/en-us/magazine/cc135917.aspx