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
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