Contar archivos en carpeta

Rene:
Antes de darte una posible respuesta, te pido nos des mas
detalles, tales como... solo quieres archivos con
extencion .xls o todo tipo de archivo, solo quieres los
archivos contenidos en el directorio o tambien en sus
subdirectorios.

Saludos
Servando Villalon

Hola grupo, la duda es la siguiente:
De que manera puedo saber la cantidad de archivos en un

directorio, quiero

usar algo asi

For i = 1 to numerodearchivos
noarch = archivo(i).name
..
..
..
Next

No pude encontrar nada en la ayuda.
Gracias adelantadas al que se tome la molestia de

responder

Salu2
Rene Moreno


____________________________________________________
Para responder elimine el texto NOSPAM de la dirección

de envío

.

Rene:
Si solo quieres la cantidad de archivos que hay en una
carpeta, copia este codigo y ejecutalo despues de cambiar
el nombre de la carpeta:

Sub NumeroDeArchivos()
Dim fsN As FileSearch
Dim n As Long

Set fsN = Application.FileSearch

With fsN
.NewSearch
.LookIn = "C:\E\Ejemplos" 'Directorio
' Cambia a True, para incluir los subdirectorios
.SearchSubFolders = False
.Filename = "*.xls" 'Tipo de arch. a buscar

If .Execute(SortBy:=msoSortByFileName,
SortOrder:=msoSortOrderAscending) > 0 Then

ActiveSheet.Range("A1") = "Cantidad de
Archivos"
Range("A2").Value = fsN.FoundFiles.Count
End If
End With

Set fsN = Nothing

End Sub


Saludos
Servando Villalon

Rene:
Antes de darte una posible respuesta, te pido nos des

mas

detalles, tales como... solo quieres archivos con
extencion .xls o todo tipo de archivo, solo quieres los
archivos contenidos en el directorio o tambien en sus
subdirectorios.

Saludos
Servando Villalon

Hola grupo, la duda es la siguiente:
De que manera puedo saber la cantidad de archivos en un

directorio, quiero

usar algo asi

For i = 1 to numerodearchivos
noarch = archivo(i).name
..
..
..
Next

No pude encontrar nada en la ayuda.
Gracias adelantadas al que se tome la molestia de

responder

Salu2
Rene Moreno


____________________________________________________
Para responder elimine el texto NOSPAM de la dirección

de envío

.

.

Como dice el dicho: "A Dios orando y con el mazo dando"
Ya lo resolvi =)
Esta funcion me devuelve una matriz con los nombres de los archivo en una
carpeta, en este caso son JPG
Aqui esta por si a alguien mas le sirve y por si alguien le puede/quiere
hacer mejoras

Function misfotos() As Variant
Dim contador As Integer, miruta As String
Dim existe As String, matriz() As Variant
miruta = "C:\WINDOWS\Escritorio\100MSDCF\"
existe = Dir(miruta & "*.jpg", vbArchive)
While existe <> ""
ReDim Preserve matriz(contador)
matriz(contador) = existe
contador = contador + 1
existe = Dir
Wend
If contador > 0 Then
misfotos = matriz
Else
misfotos = False
End If
End Function

GRACIAS POR RESPONDER SERVANDO

Saludos
Rene Moreno

____________________________________________________
Para responder elimine el texto NOSPAM de la dirección de envío
"Servando" escribió
en el mensaje news:090001c3adf6$2de3a6c0$
Rene:
Antes de darte una posible respuesta, te pido nos des mas
detalles, tales como... solo quieres archivos con
extencion .xls o todo tipo de archivo, solo quieres los
archivos contenidos en el directorio o tambien en sus
subdirectorios.

Saludos
Servando Villalon

Hola grupo, la duda es la siguiente:
De que manera puedo saber la cantidad de archivos en un

directorio, quiero

usar algo asi

For i = 1 to numerodearchivos
noarch = archivo(i).name
..
..
..
Next

No pude encontrar nada en la ayuda.
Gracias adelantadas al que se tome la molestia de

responder

Salu2
Rene Moreno


____________________________________________________
Para responder elimine el texto NOSPAM de la dirección

de envío

.

Excelente Procedimiento, GRACIAS me sirvio mucho, cada dia se aprende algo
nuevo.

Saludos
Rene Moreno

____________________________________________________
Para responder elimine el texto NOSPAM de la dirección de envío
"Servando" escribió
en el mensaje news:011901c3adf8$4d056640$
Rene:
Si solo quieres la cantidad de archivos que hay en una
carpeta, copia este codigo y ejecutalo despues de cambiar
el nombre de la carpeta:

Sub NumeroDeArchivos()
Dim fsN As FileSearch
Dim n As Long

Set fsN = Application.FileSearch

With fsN
.NewSearch
.LookIn = "C:\E\Ejemplos" 'Directorio
' Cambia a True, para incluir los subdirectorios
.SearchSubFolders = False
.Filename = "*.xls" 'Tipo de arch. a buscar

If .Execute(SortBy:=msoSortByFileName,
SortOrder:=msoSortOrderAscending) > 0 Then

ActiveSheet.Range("A1") = "Cantidad de
Archivos"
Range("A2").Value = fsN.FoundFiles.Count
End If
End With

Set fsN = Nothing

End Sub


Saludos
Servando Villalon

Rene:
Antes de darte una posible respuesta, te pido nos des

mas

detalles, tales como... solo quieres archivos con
extencion .xls o todo tipo de archivo, solo quieres los
archivos contenidos en el directorio o tambien en sus
subdirectorios.

Saludos
Servando Villalon

Hola grupo, la duda es la siguiente:
De que manera puedo saber la cantidad de archivos en un

directorio, quiero

usar algo asi

For i = 1 to numerodearchivos
noarch = archivo(i).name
..
..
..
Next

No pude encontrar nada en la ayuda.
Gracias adelantadas al que se tome la molestia de

responder

Salu2
Rene Moreno


____________________________________________________
Para responder elimine el texto NOSPAM de la dirección

de envío

.

.