Code:

Dim oFSO    As Scripting.FileSystemObject
Dim oFolder As Scripting.Folder

    Set oFSO = New Scripting.FileSystemObject
    
    Set oFolder = oFSO.CreateFolder("C:\test")
    oFolder.Attributes = Hidden