Problemas con sentencia try en un for

[DarkItachi]

Bueno, estoy haciendo un codigo mas o menos asi:

Código [Seleccionar] Expandir


for each patata in verdura
for each coles in huerto
hago cosas
next
next


Se que es muy chorra pero es para que me entengais.
En un momento del for al acceder a verdura me lanza error de acceso denegado y me sale del bucle.

Mi idea era hacer algo asi.

Código [Seleccionar] Expandir


try
for each patata in verdura
for each coles in huerto
hago cosas
next
catch
continue for
end try
next


Pero entonces el for no detecta el next.
Tambien he probado a hacerlo asi:

Código [Seleccionar] Expandir


try
for each patata in verdura
for each coles in huerto
hago cosas
next
next
catch
continue for
end try


pero asi me sale que la sentencia continue for tiene que estar en un for.

Por motivos del codigo necesito que si salta exepxcion continue el bucle.
Espero que alguien me pueda ayudar
Gracias.

PD: Ya se que me explico fatal xDDDD 

[MANULOMM]

De Casualidad en

Código [Seleccionar] Expandir

Hago Cosas estas aumentando el tamaño de Verduras o de Huerto???... ese puede ser el motivo del error.

Atentamente,

Juan Manuel Lombana
Medellín - Colombia

[DarkItachi]

Pues no, el código es de un buscador que busca archivos en directorios y suibdirectorios.
Recuerda que es un for each y no un for.

[AntonioMeucci]

Hola,
  el problema creo que es que está mal anidado el try con el bucle, prueba:

Código [Seleccionar] Expandir


for each patata in verdura
try
for each coles in huerto
hago cosas
next
catch
continue for
end try
next

[DarkItachi]

No sirve, porque el error me lo arroja en for each patata in verdura , y eso no entra en el try.

[Mace Windu]

Prueba con ésto:

Código (vbnet) [Seleccionar] Expandir

Module DudaAPP
    Sub Main()
        Dim Verduras() As String = {"Patata", "Pimiento", "Coliflor"}
        Dim Huerto() As String = {"Zona1", "Zona2", "Zona3"}

        Try
            For Each Patata As String In Verduras
                For Each Zona As String In Huerto
                    Console.WriteLine("{0} - {1}", Patata, Zona)
                Next
            Next
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try

        Console.ReadKey(True)
    End Sub
End Module


Si te sale error dime cuál es el mensaje que se mostró para poder ayudarte.

Salu2