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

hola

estudio ing.sist.com , en esta carrera tengo que conocer mucho de informatica .

me interesa la programacion hasta ahora solo estoy en un nive 4 pero me gustaria aprender mas

por ello mi pregunta con  puedo desarrollar un codigo que haga una busqueda en windows de distintos archivos especificandole cuales quiero  por medio de su extensión

se que me podran ayudar 

saludos
 
lestat1745

hola

gracias por sus respuestas    pero tengo una pregunta

me dicen que busque el directorio raiz del cd , ¿pero donde lo puedo encontrar ese directorio ? 

se que me prodran ayudar

gracias

hola a todos en el foro

mi pregunta es como puedo hacer , para crear un cd de autorun

espero que me puedan ayudar