¡Gracias por responder!
Pues estoy utilizando la función System.IO.Directory.GetFiles. El código es este:
Dim ruta_madre As Array
ruta_madre = System.IO.Directory.GetFiles(ruta)
For Each archivos_madre As String In ruta_madre
ListBox1.Items.Add(archivos_madre.ToString)
'funcion para escribir en el txt
Dim oSW As New IO.StreamWriter(salvable, True)
Dim Linea As String = archivos_madre.ToString & vbNewLine
oSW.WriteLine(Linea)
oSW.Flush()
oSW.Dispose()
Next
Do
For Each archivos
As String In System.
IO.
Directory.
GetFiles(ruta
& folders(x
).
Name, _
"*", _
System.IO.SearchOption.AllDirectories)
ListBox1.Items.Add(archivos.ToString)
Dim oSW As New IO.StreamWriter(salvable, True)
Dim Linea As String = archivos.ToString & vbNewLine
oSW.WriteLine(Linea)
oSW.Flush()
oSW.Dispose()
Next
x = x + 1
Loop Until x = tope
El problema es que con esta función
si encuentra la carpeta y al no tener permisos da error y para de listar(sale del bucle).
He probado lo de GetFileSecurity,pero no me reconoce la variable...