Visual Basic - urgente!!!

Life is soft - evento anual de software empresarial
 
Vista:

urgente!!!

Publicado por Raymond (106 intervenciones) el 01/11/2003 03:58:24
Hola ocupo saber como puedo recorrer todos los subdirectorios de un directorio principal...

porfavor si alguien sabe como hecer me lo puede pasar porfavor? gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:urgente!!!

Publicado por Cecilia Colalongo (3117 intervenciones) el 01/11/2003 12:19:53
Lo puedes hacer con la función Dir, en http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctDir.asp tienes la documentación y un ejemplo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:urgente!!! no se que pasa

Publicado por Raymond (106 intervenciones) el 02/11/2003 02:43:46
tengo este codigo y no se como puedo solucionarlo me podrian ayudar ?
gracias de antemano..

Private Sub llena(ByVal nom1, ByRef cont2)
Dim arreglo1(1 To 7) As String
Dim cont As Integer
Dim myname As String

myname = Dir(nom1, vbDirectory)
Do
cont = 0
myname = Dir(nom1, vbDirectory) ' Retrieve the first entry.
Do While myname <> ""
If myname <> "." And myname <> ".." Then
If (GetAttr(nom1 & myname) And vbDirectory) = vbDirectory Then
cont = cont + 1
arreglo1(cont) = nom1 & myname & "\"
End If ' it represents a directory.
End If
myname = Dir ' Get next entry.
Loop
If arreglo1(1) = "" Then
Exit Sub
End If
cont2 = cont - 1

Call llena(arreglo1(cont2), cont2)
Loop Until arreglo1(1) = ""
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar