Oppure

Loading
07/08/11 8:51
Saik
Ciao a tutti
ho scritto un codice per analizzare e trovare tutti i file con estensione .png :ot:
Sub cerca(ByVal path As String)
                    For Each i As String In Directory.GetFiles(path)
                If IO.Path.GetExtension(i) = ".png" Then
                    file.Add(i)
                End If
            Next
       For Each i As String In Directory.GetDirectories(path)
            cerca(i)
        Next
    End Sub

però arrivato alla seconda iterazione viene negato l'accesso a una cartella il codice quindi si blocca
:grr:
come posso rimediare??:blush::blush:
aaa
07/08/11 12:40
Personalmente io userei un try catch, però la funzione ricorsiva in sé è inutile: il metodo GetFiles ha un overload che accetta come parametro, oltre alla directory dove cercare, anche un valore SearchOption che permette di specificare se cercare in tutte le subdrectories.

Dai un'occhiata: msdn.microsoft.com/en-us/library/…


[OT]che figo scrivere dalla spiaggia :rofl:[/OT]
07/08/11 12:44
Lafa_96
credo che si blocchi perchè tenti di accedere ad un flusso di dati che hai già aperto ma non hai chiuso, quindi lo devi chiudere!! chiudilo prima del secondo ciclo (adesso sono un po' arrugginito di vb e l'istruzione precisa non me la ricordo e in più sono su linux e quindi non posso neanche provare ma credo sia IO.Path.Close(), ripeto non sono per nulla sicuro!!)
aaa