Dim lAttr   As Long
  lAttr = GetAttr("c:test")
  If lAttr And vbHidden Then
    ' Versteckt attribut entfernen
    Call SetAttr("c:test", vbNormal)
  Else
    ' Versteckt attribut setzten
    Call SetAttr("c:test", vbHidden)
  End If