VBA Tips - Reexibindo pastas ocultas com VBA - Scripting Runtime object library - Scrrun.dll

Talvez precise ocultar pastas onde relatórios são gerados, tornando-os visíveis apenas em certas circunstâncias.

Adicione uma referência a Scripting Runtime object library no seu projeto VBA.

Ao instalar as aplicações do MS Office, uma das bibliotecas de objetos instalados no seu sistema é o Scripting Runtime object library. Esta biblioteca contém objetos úteis a partir de qualquer VBA ou script, e por isso é fornecido como uma biblioteca separada.

Os objetos na Scripting Runtime object library facilitam o acesso ao sistema de arquivos, e torna a leitura e gravação num arquivo texto muito mais simples.

Por padrão, nenhuma referência é definido para esta biblioteca, então você deve definir uma referência para que você possa usá-lo. Se o Scripting Runtime object library não aparecer na caixa de diálogo de Referências (menu Ferramentas), você deve ser capaz de encontrá-la na subpasta C:\Windows\System\Scrrun.dll.

Em seguida, digite o seguinte código:

Sub ShowHiddenFolders()

Dim objFSO As FileSystemObject

Set objFSO = New FileSystemObject

Dim objFld As Folder

Dim iFld As Folder

Set objFld = objFSO.GetFolder("c:\Root")

    

For Each iFld In objFld.SubFolders

iFld.Attributes = Directory

'iFld.Attributes = Hidden

     

'iFld.Attributes = ReadOnly

Next iFld

End Sub

Tags: VBA, hidden, folder, Scrrun.dll, Scripting Runtime object library, 

André Luiz Bernardes

bernardess@gmail.com