DELETE FOLDER DAN ALL FILE TANPA PERMASALAHAN ACCESS DENIED

Dim path As String =  "D:\Coba" 'Coba adalah nama folder yang berisi file-file
Dim r = My.Computer.FileSystem.GetDirectoryInfo(path)
r.Attributes = FileAttributes.Normal
My.Computer.FileSystem.DeleteDirectory(path, FileIO.DeleteDirectoryOption.DeleteAllContents)