Propiedades de ficheros

03/12/2003 - 17:50 por Carlos | Informe spam
Saludos a todos
Tengo un grupo de 6 ordenadores que generan cada media
hora seis ficheros (uno cada uno) de video. El problema es
que, debido a cuestiones que no vienen al caso, de vez en
cuando, alguno de estos ordenadores se "cuelga" o no
funciona correctamente y no se graba la información que
necesito.
Lo que me gustaría hacer es un control de dichos ficheros
mediante una macro que me diga cuando la ejecute si alguno
tiene un tamaño inferior a 35.000 Kb. De esta forma
sabría, sin tener que mirar uno a uno cada fichero, si
existe algún problema.
Pero no se cómo hacerlo...
¿alguien puede ayudarme en esto?
Muchas gracias
 

Leer las respuestas

#1 Héctor Miguel
04/12/2003 - 06:39 | Informe spam
hola, Carlos !

... 6 ordenadores ... cada media hora seis ficheros (uno cada uno) de video.
... de vez en cuando, alguno ... no funciona ... y no se graba la informacion que necesito.
... hacer un control ... macro que me diga cuando la ejecute si alguno tiene un tamaño inferior a 35.000 Kb. [...]



si lo unico que necesitas es 'verificar' el tamaño en disco de un archivo 'antes' de 'trabajar en el'...
puedes usar la funcion FileLen("Ruta\Nombre de archivo.EXT") que devuelve un tipo de datos 'long'...
con el tamaño EN BYTES que ocupa ese archivo en el disco [en caso de 'encontrarlo']
==> te recuerdo que un Kb son 1024 bytes... un Mb son 1024 Kbytes... [etc.] <='condicionando' la continuacion del codigo [para 'ese' archivo] a que tenga [al menos] 35000 Kb [o 35840000 bytes]
p..e en un modulo de codigo 'normal' ==Sub TamañoDeArchivo()
Dim Ruta As String, Archivo As String, Tamaño As Long
Ruta = "C:\Mis documentos\"
Archivo = "Aplicaciones 97.xls"
Tamaño = FileLen(Ruta & Archivo)
MsgBox "El archivo " & Archivo & " 'mide':" & vbCr & _
Format(Tamaño, "#,##0") & " bytes" & vbCr & _
Format(Tamaño / 1024, "#,##0.0") & " Kbytes" & vbCr & _
Format(Tamaño / 1024 / 1024, "#,##0.0") & " Mbytes"
End Sub

saludos,
hector.

Preguntas similares