Cuanto devuelve DIR
Publicado por Carlos Rubén (79 intervenciones) el 11/07/2007 16:03:48
Existe alguna manera de saber cuantos archivos me devuelve esto:
Resultado = Dir(txtOrigen.Text & "\" & strRuta & "\" & strNombreArch & "*.*", vbArchive)
sin tener que hacer lo siguiente para contarlos ?
Do While Resultado <> ""
intCant = intCant + 1
Resultado = Dir
Loop
Gracias
Resultado = Dir(txtOrigen.Text & "\" & strRuta & "\" & strNombreArch & "*.*", vbArchive)
sin tener que hacer lo siguiente para contarlos ?
Do While Resultado <> ""
intCant = intCant + 1
Resultado = Dir
Loop
Gracias
Valora esta pregunta
0