Contar cantidad de archivos

yayita1502
05 de Enero del 2005
Tengo un porgrama en el cual realizo backup de la base de datos cada vez que se sale del programa, en una carpeta llamada backup. Lo realiza al backup automaticamente, como sabrán el usuario nunca lo hace. Lo que necesito hacer es que solamente en esa carpeta se guarden 4 backup de la base de datos. No sé como hacerlo. Se aceptan sugerencias. Gracias.

mvallejos
05 de Enero del 2005
Podés usar la función Dir para contar la cantidad de archivos de una carpeta.

Para el ejemplo, supongamos que la carpeta es
C:BACKUPS y los archivos tienen extensión Bak.

Dim Cant as Integer
Dim Archivo as String

Archivo = Dir("C:backups*.bak",vbArchive)
Do while Archivo <> ""
Cant = Cant + 1
Archivo = Dir$
Loop

A la salida del bucle, en Cant te queda la cantidad de archivos que hay en la carpeta.

Otra solución es usar un FileListBox oculto, setearle el path y extraer la cantidad de archivos de su propiedad ListCount

Saludos