Hide Folder Macro

[Raj]

Hi all,

I would like to know if using a macro can we hide a folder,
if yes can i know how can i do it.......

 

[NickHK]

Read the Help for SetAttr
However, depending on the user's Folder option settings, it may still be
visible.

NickHK

 

[CoRrRan]

Hi all,

I would like to know if using a macro can we hide a folder,
if yes can i know how can i do it.......

Yes you can:

****************
Sub ChangeFolderAttribs()

Dim FSO As Scripting.FileSystemObject

Set FSO = New Scripting.FileSystemObject

FSO.GetFolder("C:\Temp\").Attributes = Hidden

Set FSO = Nothing

End Sub
****************

Make sure you have a reference to "Microsoft Scripting Runtime" (VBE -->
Tools --> References --> select "Microsoft Scripting Runtime" and close
with "OK".)

CoRrRan

 

[Raj]

Yes you can:

****************
Sub ChangeFolderAttribs()

Dim FSO As Scripting.FileSystemObject

Set FSO = New Scripting.FileSystemObject

FSO.GetFolder("C:\Temp\").Attributes = Hidden

Set FSO = Nothing

End Sub
****************

Make sure you have a reference to "Microsoft Scripting Runtime" (VBE -->
Tools --> References --> select "Microsoft Scripting Runtime" and close
with "OK".)

CoRrRan

Thx.......... how to unhide the folder...........

 

[CoRrRan]

Thx.......... how to unhide the folder...........

Change:

FSO.GetFolder("C:\Temp\").Attributes = Hidden

To:

FSO.GetFolder("C:\Temp\").Attributes = Normal

CoRrRan