Private Function SetACLDirectory(ByVal folder As String) As Boolean
        Try
            Dim dir As New DirectoryInfo(folder)
            Dim dirSecurity As New DirectorySecurity
            Dim fsnewRule As New FileSystemAccessRule("BUILTIN\administrators", FileSystemRights.FullControl, AccessControlType.Allow, PropagationFlags.None, AccessControlType.Allow)
            dirSecurity.SetAccessRule(fsnewRule)
            dir.SetAccessControl(dirSecurity)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function