How about good old SetAttr() :
VB Code:
  1. Private Sub Command1_Click()

  2.     SetAttr "c:\temp", vbHidden

  3. End Sub