Views

Histats

Vitrine

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

Inline image 1
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

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...