19/11/2003, 15:33
|
| | | Fecha de Ingreso: noviembre-2003 Ubicación: España->Madrid
Mensajes: 368
Antigüedad: 20 años, 6 meses Puntos: 0 | |
 Prueba con esto
MIra crea un boton y en el evento al acer click...
longitud=filelen("c:/prueba.doc")
print longitud
fecha=filedate("c:/prueba.doc")
print fecha
atrib=fileattr("...")
print atrib
lo unico q en atrib t aparecera un numero q sera igual a la suma de todos los valores representantes de cada opcion...
vbNormal 0 Normal
vbReadOnly 1 Sólo lectura
vbHidden 2 Oculto
vbSystem 4 Sistema
vbDirectory 16 Directorio
vbArchive 32 El archivo ha cambiado desde su última copia
espero q t sirva....
(si kieres que cada vez sea con un archivo nuevo...
dim doc as string
doc=inputbox("introduzca la ruta de acceso del archivo que desea revisar:","Titulo")
y en vez de poner la ruta en cada parametro metes el nombre doc y listo) |