VBA - Create a HIDDEN folder

Question

Hello everyone,

I'm currently using some vba code to create a folder. This uses the MkDir function. See below:

Charts_Path = Application.ActiveWorkbook.Path & "\Charts"

If Dir(Charts_Path, vbDirectory) = "" Then MkDir Charts_Path

This does exactly what I want it to do. However, once I've created the folder I'd like to change its properties and hide it (Folder properties > Attributes > Hidden).

Any ideas?

Thanks,

Daniel

Answer 1

The following Sub will Hide or Show the folder depending on its current state

Sub Hide_Show_Folder()

    Dim objFSO As Object

    Dim objFolder As Object

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFolder = objFSO.GetFolder(Application.ActiveWorkbook.Path & "\Charts")

    If objFolder.Attributes = objFolder.Attributes And 2 Then

        objFolder.Attributes = objFolder.Attributes Xor 2

    End If

    Set objFolder = Nothing

    Set objFSO = Nothing

End Sub

Answer 2

An internet search with Excel hide folder found:

https://www.mrexcel.com/forum/excel-questions/495922-hide-folder-directory.html

Answer 3

Perfect! Thank you.