คำสั่งซ่อนไฟล์ใน VB2010 รบกวนช่วยแนะนำหน่อยครับ งง หมดแล้ววว

Try
            Dim strFInfo As New FileInfo(LocalProarea)
            strFInfo.Attributes = FileAttributes.Hidden
            Timer4.Stop()
            MessageBox.Show("ซ่อนแล้วครับ")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

 Dim fs As FileSystemSecurity = File.GetAccessControl((loc))
        fs.AddAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
        File.SetAccessControl((loc), fs)