Option Explicit
Private Sub Command1_Click()
Dim objFSO As Scripting.FileSystemObject
Dim objFolder As Folder
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:/Program Files/123")
If objFolder.Attributes = objFolder.Attributes And 5 Then
objFolder.Attributes = objFolder.Attributes Xor 5
End If
End Sub