Con lof y comandodialog, pero no caxoo, alguien que me puede ayudar x ahi
 

shadow.darknesses para variar hay te va lo que dice la ayuda del visual basic jeje

-------------------
FileLen (Función)
-------------------

Devuelve un tipoLong que especifica la longitud de un archivo en bytes.

Sintaxis

FileLen(nombre_ruta)

Elargumento nombre_ruta requerido es unaexpresión de cadena que especifica un nombre de archivo. Puede incluir el directorio o carpeta y la unidad de disco.

Comentarios
Si el archivo especificado está abierto cuando se llama la función FileLen, el valor devuelto representa el último tamaño de ese archivo cuando se guardó por ultima vez en el disco.

Nota   Para obtener la longitud de un archivo abierto, utilice la función LOF.

---------------------------------
Ejemplo de la función FileLen
---------------------------------
En este ejemplo se utiliza la función FileLen para obtener la longitud de un archivo en bytes. Se supone que PRUEBA es un archivo que contiene información.

Dim MiTamaño
MiTamaño = FileLen("PRUEBA")   ' Devuelve la longitud del archivo (bytes).

  alguien podria traducir....

y de eso del % ya hay varios post