Ricerca percorso file nel proprio HD.

[cavaliere123]

Salve a tutti e rieccomi per una nuova domanda.

So come trovare un file in una data cartella con la procedura che ho qui sotto...

Ma se come scritto tento la ricerca in tutto C:\ mi blocca perchè mi esce messaggio che mi avverte che non ho autorizzazione necessaria per aprire quella cartella.

Come posso ovviare ??

Uso Visual Basic 2010 express

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'Shell("C:\Users\admin\Desktop\carte.bat", AppWinStyle.NormalFocus)
        'Process.Start("D:\NELLA TOTALE", AppWinStyle.NormalFocus)
        For Each foundFile As String In My.Computer.FileSystem.GetFiles(
      "C:\",
      Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, "roma.png")
            MsgBox(foundFile)
        Next
    End Sub

Per cortesia se c'è un link che spiega bene queste cose sarò felice di leggerlo.
Grazie

[SirJo]

Prova a lanciare il programma come Amministratore

[cavaliere123]

Perdonami SirJo... l'ho pensato una cosa del genere ma non so come procedere....
Mi aiutate nella fattispecie per cortesia ?

Anche perchè ho visto che mi blocca sulle cartelle di sistema nascoste...
e l'unico account sul mio pc è administrator....

[oregon]

Prova a leggere questa discussione

http://forum.html.it/forum/showthrea...readid=2896931

[cavaliere123]

Buona sera ... ho letto il tread proposto e anche un altro...

sono arrivato a questo :

Imports System.IO.File
Imports System.IO
Imports System.IO.Directory


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'Shell("C:\Users\admin\Desktop\carte.bat", AppWinStyle.NormalFocus)
        'Process.Start("D:\NELLA TOTALE", AppWinStyle.NormalFocus)
 
        Call ProcessFiles(x)

    End Sub


   
    Private Sub ProcessFiles(ByVal folderPath As String)
        Try
            For Each filePath As String In Directory.GetFiles("C:\Users\admin", Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, "roma.png")
                'Use filePath here.
            Next

            For Each subfolderPath As String In directory.GetDirectories(folderPath)
                ProcessFiles(subfolderPath)
            Next
        Catch ex As UnauthorizedAccessException
             
        End Try
    End Sub

Ma non riesco a passare il parametro della sub , infatti ho messo una x senza senso .. lo so...
ma giusto per inserire per un attimo qualcosa.
Accetto suggerimenti

[oregon]

Continua a dare un'occhiata a questo

http://msdn.microsoft.com/it-it/libr...v=vs.110).aspx

[cavaliere123]

Buon giorno e chiedo scusa.... più o meno la procedura è la stessa, cioè c'è un controllo che se ci sono delle eccezioni la routine le sorvola e va avanti nella ricerca.

Ma il mio problema è purtroppo e mi spiace non riesco a risolverlo... è di dire al button che quando lo clicco deve farmi partire la routine : ProcessFiles(ByVal folderPath AsString)..

Non so se riesco a farmi comprendere

[oregon]

Sì ... ti ho compreso perfettamente e per questo ti avevo detto di leggere da quel thread. Ma non l'hai fatto con attenzione ... quel codice parte con

ProcessDirectory(path)

in cui path è una variabile in cui viene passato il percorso iniziale ...

[cavaliere123]

Si ho compreso... ma comprendo anche se non vorrai scrivermi il codice... ma sono sincero ...

Non riesco a creare la variabile da passare... ci sto impazzendo .. lo giuro... ma sarà che ormai mi sono inceppato

Non riesco a creare nel codice del button.clik la variabile da passare poi alla routine...

Nella procedura che mi hai proposto.. inizia con dire che se esiste quel file allora parti con la procedura che controlla le eccezioni...

Quindi teoricamente dovrei dire come codice che appena pigio il tasto button allora per prima cosa deve controllare che c:\ esista e in tal caso allora procedere con il controllo della routine...

[oregon]

Non è necessaria una variabile ... puoi usare anche una costante

"C:\tuacartella"