Folder Access Denied هنگام حذف دایرکتوری

[پرستو پارسایی]

با سلام من در شاخه ویندوز در درایو سی یک دایرکتوری ایجاد و در آن یک فایل رو اکسترکت میکنم ولی تلاشم برای حذف دایرکتوری ایجاد شده نتیجه نداد . از چندین روش متفاوت استفاده کردم ولی نتیجه مطلوب نگرفتم لازم به توضیح اینکه پروژه رو روی ادمین تنظیم کردم و حتی اگر ریست هم کنم مشکل حل نمیشه .این مورد برای ویندوز 7 به بالا مورد نیازم هست ممنون میشم اساتید در صورت اطلاع پاسخ دهید

 Dim path As String = "C:\Windows" 

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Directory.GetDirectories(path, "New", SearchOption.AllDirectories).

        ToList().ForEach(Sub(x) Directory.Delete(x, True))

    End Sub

Or

  Try  Dim path As String = "C:\Windows"

 Dim directory As New DirectoryInfo(path)

 directory.Delete(True)

 Catch





 End Try