Odmowa dostępu do plików?

[kamiljabłko]

Wziąłem od pewnego kolegi z innych forów kod który wydawał mi się dobry i go zastosowałem.

Miał on wyświetlać w treeview katalogi i dyski.

Gdy go odpalam wyskakuje błąd o odmowie dostępu do plików z dysku C:\Windows...

Ten folder nie jest objęty prawami administratora i gdy się go otwiera należy zatwierdzić "kontynuuj".

Jak zrobić by program dostał prawa administratora?

[Gość]

Prawy przycisk myszy -> uruchom jako administrator. Inaczej się tego nie da zrobić, przynajmniej na systemach Windows > Windows XP (zawsze pojawi się dialog informujący użytkownika o potrzebie uprawnień administratora)

 

Tak samo jest na linuxie, trzeba mieć uprawnienia administratora (root) aby wykonywać różne operacje - poprzez polecenie sudo

[kamiljabłko]

A jak to zrobić by automatycznie się o to pytał przy starcie aplikacji?

Ps jak nadad prawa administratorski w visual basic (w nim)?

[Crossiik]

zrób tak by program odpalał się tylko gdy ma uprawnienia admina

http://stackoverflow.com/questions/6099080/testing-application-for-administrative-running-rights-vb-net

 

PS Szczęśliwego nowego ;P.

[kamiljabłko]

Mam to umieścić w ten sposób?

 

Imports System.Security.Principal

Public Class Form1

    Dim identity = WindowsIdentity.GetCurrent()

    Dim principal = New WindowsPrincipal(identity)

    Dim isElevated As Boolean = principal.IsInRole(WindowsBuiltInRole.Administrator)

(...)

 

Bo nie działa. Jaki jest kod odpalający to?

[Crossiik]

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If My.User.IsInRole(ApplicationServices.BuiltInRole.Administrator) Then
        Else
            MsgBox("uruchom jako administartor")
            Me.Close()
        End If
    End Sub

Jest pewnie łatwiejszy sposób ale ja zrobiłem to tak.

[kamiljabłko]

Mam ciągle błąd.

 

 

IOException was unhandled

An unhandled exception of type 'System.IO.IOException' occurred in mscorlib.dll

Additional information: Urządzenie nie jest gotowe.

 

 

Co zrobić?

[Crossiik]

Może podaj kod.

[kamiljabłko]

Ok :

Imports System.Security.Principal
Public Class Form1
    Dim identity = WindowsIdentity.GetCurrent()
    Dim principal = New WindowsPrincipal(identity)
    Dim isElevated As Boolean = principal.IsInRole(WindowsBuiltInRole.Administrator)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If My.User.IsInRole(ApplicationServices.BuiltInRole.Administrator) Then
        Else
            MsgBox("Uruchom jako Administartor.")
            Me.Show()
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim drives As System.Collections.ObjectModel.ReadOnlyCollection(Of IO.DriveInfo) = My.Computer.FileSystem.Drives
        Dim rootDir As String = String.Empty
        For i As Integer = 0 To drives.Count - 1
            rootDir = drives(i).Name
            TreeView1.Nodes.Add(rootDir)
            PopulateTreeView(rootDir, TreeView1.Nodes(i))
        Next
    End Sub
    Private Sub PopulateTreeView(ByVal dir As String, ByVal parentNode As TreeNode)
        Dim folder As String = String.Empty
        Try
            Dim folders() As String = IO.Directory.GetDirectories(dir)
            If folders.Length <> 0 Then
                Dim childNode As TreeNode = Nothing
                For Each folder In folders
                    childNode = New TreeNode(folder)
                    parentNode.Nodes.Add(childNode)
                    PopulateTreeView(folder, childNode)
                Next
            End If
        Catch ex As UnauthorizedAccessException
            parentNode.Nodes.Add(folder & ": Access Denied")
        End Try
    End Sub
End Class

[Crossiik]

rozumiem że biblioteka załadowana?
Zainportuj 
import System.IO.IOException

Może to coś da, nie wiem nawet ktory kawałek kodu wywołuje błąd .

[kamiljabłko]

Błąd występuje w tym :

 

Dim folders() As String = IO.Directory.GetDirectories(dir)

[Crossiik]

Imports System
Imports System.IO
Imports System.Collections

Nie masz systemu plików.
http://msdn.microsoft.com/en-us/library/c1sez4sc%28v=vs.110%29.aspx

[kamiljabłko]

Kiedy dodałem te importy nic się nie stało.

Nadal nie działa

[Gość]

Dodaj odpowiednią linijkę do manifest i program będzie wymagał uprawnień administratora przy stracie.

[kamiljabłko]

Co dodać?