13/02/2006, 06:38
|
| | | Fecha de Ingreso: febrero-2005
Mensajes: 81
Antigüedad: 19 años, 2 meses Puntos: 0 | |
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 |