On Local Error GoTo DirDriverHandler
DirsToPeek = dirList.ListCount ' ¿Cuántos directorios hay debajo de éste?
Do While DirsToPeek > 0 And SearchFlag = True
OldPath = dirList.Path ' Guarda la ruta de acceso anterior para el próximo paso recursivo.
dirList.Path = NewPath
If dirList.ListCount > 0 Then
' Obtiene hasta la parte inferior del nodo.
dirList.Path = dirList.List(DirsToPeek - 1)
AbandonSearch = DirDiver((dirList.Path), DirCount%, OldPath)
End If
' Sube un nivel en los directorios.
DirsToPeek = DirsToPeek - 1
If AbandonSearch = True Then Exit Function
hola , gracias por el codigo solo tengo una pregunta mas
me envia un msg que dice que hay una variable no definida la cual es dirList
DirsToPeek = dirList.ListCount ' ¿Cuántos directorios hay debajo de éste?
Do While DirsToPeek > 0 And SearchFlag = True
OldPath = dirList.Path ' Guarda la ruta de acceso anterior para el próximo paso recursivo.
dirList.Path = NewPath
If dirList.ListCount > 0 Then
' Obtiene hasta la parte inferior del nodo.
dirList.Path = dirList.List(DirsToPeek - 1)
AbandonSearch = DirDiver((dirList.Path), DirCount%, OldPath)
End If
' Sube un nivel en los directorios.
DirsToPeek = DirsToPeek - 1
If AbandonSearch = True Then Exit Function
hola , gracias por el codigo solo tengo una pregunta mas
me envia un msg que dice que hay una variable no definida la cual es dirList