[VB .NET] DirectoryInfo.GetDirectories(), problema accesso negato

[nardellu]

vi posto una parte di codice di un programma che stò realizzando:

dim path_primaria as string = "C:\users\utente\Documents"

      Dim rootInfo As DirectoryInfo = New DirectoryInfo(path_primaria)  
        Try
            For Each d As DirectoryInfo In rootInfo.GetDirectories("*.*", SearchOption.AllDirectories)
                'se non sono cartelle nascoste o di sistema le inserisce nell'array
                If (d.Attributes And IO.FileAttributes.Hidden) <> FileAttributes.Hidden Then
                    array_cartelle.Insert(a, d.FullName)
                End If
                a += 1
            Next

        Catch ex As UnauthorizedAccessException
'codice di gestione errore

        Catch ex As Exception
'codice di gestione errore

        End Try

si verifica il problema dell'accesso negato... cioè durante la chiamata rootInfo.GetDirectories("*.*", SearchOption.AllDirectories), se non si hanno le autorizzazioni si blocca...

ho provveduto con i catch a gestire il problema, ma il mio vero problema e che appena trova una cartella alla quale non può accedere, non continua il loop...

esempio su vista, nella cartella documents ci sono delle cartelle symboliche (video, musica, immagini ecc...) e mi si blocca li...

si può risolvere in qualche maniera? stò diventando scemo , e su google mi stò rincoglioxxxxx

any idea?
si potrebbe ovviare, oppure è un discorso morto?

[MarcoGG]

Originariamente inviato da nardellu

ho provveduto con i catch a gestire il problema, ma il mio vero problema e che appena trova una cartella alla quale non può accedere, non continua il loop...

Per forza, hai messo tutto il For Each nel blocco Try Catch. Prova mettendo solo l'istruzione che può sollevare l'eccezione.

[nardellu]

Originariamente inviato da MarcoGG

Per forza, hai messo tutto il For Each nel blocco Try Catch. Prova mettendo solo l'istruzione che può sollevare l'eccezione.

scusami forse non mi sono spiegato bene...

l'errore di accesso negato, mi viene fuori durante l'inizio del ciclo...

anche se includo "try/catch" qui:

'se non sono cartelle nascoste o di sistema le inserisce nell'array
                If (d.Attributes And IO.FileAttributes.Hidden) <> FileAttributes.Hidden Then
                    array_cartelle.Insert(a, d.FullName)
                End If

ottengo sempre l'errore perché è a monte di tale operazione...

mi servirebbe una soluzione che prosegua il ciclo anche quando il metodo rootInfo.GetDirectories("*.*", SearchOption.AllDirectories) restituisce un eccezione, in questo caso accesso negato alla cartella xxxxxx...

[alex783]

Lo sai che anch'io sto avendo eccezioni di Accesso negato quando provo a cancellare o rinominare directory?

Ecco il mio codice:

if (Directory.Exists(this.ProfilePath[i, 1]))
{
	try
	{
		Directory.Move(this.ProfilePath[i, 1], this.ProfilePath[i, 1] + "OLD");
	}
	catch (Exception Error)
	{
		MessageBox.Show(this.NameOfProgram + "TryToRenameFolder *** \n" + Error.Message);	
	}
}

dove ProfilePath è un array che contiene il percorso di una cartella all'interno di C:\Users\blablabla\AppData\Roaming\

Ho il sospetto che sia Windows Search a bloccare a volte l'accesso alla cartella.

Infatti, reiterando i tentativi di accesso, l'operazione viene conclusa con successo. Alla fine, io ho risolto così (anche se non mi piace come metodo):

TryToRenameFolder:
if (Directory.Exists(this.ProfilePath[i, 1]))
{
	try
	{
		Directory.Move(this.ProfilePath[i, 1], this.ProfilePath[i, 1] + "OLD");
		Thread.Sleep(200);
	}
	catch (Exception Error)
	{
		#if DEBUG
		MessageBox.Show(this.NameOfProgram + "TryToRenameFolder *** \n" + Error.Message);
		#endif
		TryToRenameFolderCounter = TryToRenameFolderCounter + 1;
		if (TryToRenameFolderCounter < 5)
		{
			goto TryToRenameFolder;
		}
		else MessageBox.Show("Sorry, there was an error. \n" + Error.Message);
	}
}

Su internet leggevo della possibilità di utilizzare l'istruzione CopyFileA delle API Win32, naturalmente in codice non gestito, in quanto dovrebbe essere in grado di accedere anche a file/cartelle bloccate da un altro processo. E' così?

Chiedo scusa all'autore del thread, ma credo che alla fine il problema sia praticamente lo stesso...

P.S: questo problema si verifica anche quando provo la mia applicazione in modalità Amministratore (uso Vista)

[MarcoGG]

Originariamente inviato da nardellu

scusami forse non mi sono spiegato bene...

l'errore di accesso negato, mi viene fuori durante l'inizio del ciclo...

anche se includo "try/catch" qui:

'se non sono cartelle nascoste o di sistema le inserisce nell'array
                If (d.Attributes And IO.FileAttributes.Hidden) <> FileAttributes.Hidden Then
                    array_cartelle.Insert(a, d.FullName)
                End If

ottengo sempre l'errore perché è a monte di tale operazione...

mi servirebbe una soluzione che prosegua il ciclo anche quando il metodo rootInfo.GetDirectories("*.*", SearchOption.AllDirectories) restituisce un eccezione, in questo caso accesso negato alla cartella xxxxxx...

Secondo me non ne esci così. Devi crearti una funzione ricorsiva, che non usa SearchOption.AllDirectories, ma SearchOption.TopDirectoryOnly e ad ogni passaggio intercettare l'errore con Try Catch. Per il momento la vedo l'unica soluzione, ma mi riservo di provare più tardi...

[nardellu]

alex783, ho visto ciò che hai fatto, ed anche io ho già provato la tua soluzione senza risoluzione...

ma io ho anche individuato il problema esatto, che ne mio caso è la presenza di cartelle simboliche (collegamenti a cartelle) nella cartella documents in c:\users\nomeutente\

ad esempio dentro documents, c'è la cartella Video, che come icona su explorer ha il simbolo del collegamento e quando la Getdirectories() ci passa sopra ottengo il famoso messaggio "accesso negato...",

infatti mi servirebbe un qualcosa che ignori tale errore e prosegua con le altre cartelle... ma a stò punto dubito che esista dati gli innumerevoli 3ds senza risoluzione che ho letto su google...

potrebbe anche andar bene un metodo ricorsivo per ottenere in un altra maniera cartelle e sottocartelle, e ficcarle dentro un array...

[nardellu]

Originariamente inviato da MarcoGG

Secondo me non ne esci così. Devi crearti una funzione ricorsiva, che non usa SearchOption.AllDirectories, ma SearchOption.TopDirectoryOnly e ad ogni passaggio intercettare l'errore con Try Catch. Per il momento la vedo l'unica soluzione, ma mi riservo di provare più tardi...

be ho risolto alla fine...

popolare l'array, e quando c'è l'eccezione rimuovere il valore...

'ciclo cartelle principali della cartella principale
        For Each d As DirectoryInfo In rootInfo.GetDirectories("*", SearchOption.TopDirectoryOnly)

            array_cartelle.Add(d.FullName)
            Dim rootInfo2 As DirectoryInfo = New DirectoryInfo(d.FullName)

            'scarta le cartelle di sistema e nascoste
            If d.Attributes <> FileAttributes.Hidden And FileAttributes.System Then
                'prova a ottenere tutte le sottocartelle
                Try
                    For Each d2 As DirectoryInfo In rootInfo2.GetDirectories("*", SearchOption.AllDirectories)
                        array_cartelle.Add(d2.FullName)
                    Next

                Catch ex As UnauthorizedAccessException
                    'se una directory provoca l'eccezzione di autorizzazioni rimuove dall'elenco cartelle
                    Dim remove_value = array_cartelle.Count - 1
                    MsgBox(Err.Description & " |" & remove_value)
                    array_cartelle.RemoveAt(remove_value

                End Try
                'fine if cartelle sistema/nascoste
            End If
            'fine ciclo cartelle principali
        Next

forse si può fare ancora meglio, ma funge alla grande e non sgarra 1 directory... che sia utile a qualcuno...

[MarcoGG]

Io invece l'ho fatta ricorsiva. La directory viene aggiunta all'ArrayList solo se non produce alcun errore d'accesso. Se una dir genera un'eccezione, mi ritrovo la descrizione completa di percorso dir in una ListBox... :

> ArrayList e Sub Ricorsiva :

    Private arrayDirOk As ArrayList

    Private Sub TrovaCartelle(ByVal cartellaTop As String)

        Dim rootInfo As DirectoryInfo = New DirectoryInfo(cartellaTop)
        Try
            For Each D As DirectoryInfo In rootInfo.GetDirectories("*.*", SearchOption.TopDirectoryOnly)
                'If ... Condizioni ... 
                arrayDirOk.Add(D.FullName)
                'Rendo la Sub Ricorsiva
                TrovaCartelle(D.FullName)
            Next

        Catch ex As Exception
            lst_errori.Items.Add(ex.ToString())
        End Try

    End Sub

> Codice utilizzatore ( Button, ecc... ) :

        lst_errori.Items.Clear()

        Dim cartellaTop As String = "C:\"
        arrayDirOk = New ArrayList
        TrovaCartelle(cartellaTop)

[nardellu]

ottimo esempio, meno codice e meno risorse utilizzate...


utilizzerò il tuo esempio grazie...

[Giovanni G]

Una ottima soluzione (in inglese) si trova qui: https://firebird-vbnet.blogspot.com/...der-stops.html

[Giovanni G]

Originariamente inviato da Giovanni G

Una ottima soluzione (in inglese) si trova qui: https://firebird-vbnet.blogspot.com/...der-stops.html

Vedo che quel link non funziona più. Questo funziona:

https://firebird-vbnet.blogspot.com/...em-solved.html