Ocultar carpetas desde VB

[Skalitiko]

Aqui hay una forma de hacerlo:

Tienes que agregar la refencia Microsoft Scripting Runtime.

Private Sub Cmd_Oculta_Click()
dim Fso As New Scripting.FileSystemObject
Dim F As Folder
Set F = Fso.GetFolder("c:\My Documents")
F.Attributes = Hidden
End Sub