Problema con archivo

En código de VBA, podrías aplicar algo como esto:

Sub tamaño()
Dim MiObjeto, MiArchivo, x As Variant
Set MiObjeto = CreateObject("scripting.filesystemobject")
Set MiArchivo = MiObjeto.getfile("c:\hola.txt")
x = MiArchivo.Size
MsgBox x
End Sub



"Pancho" escribió:

Hola a todos

tengo el path de un archivo

p ej.

c:\hola.txt

y necesito saber el peso en bytes de este archivo

¿Como se peude hacer esto?

gracias

Hola chicos,

"Pancho" escribió:

c:\hola.txt
saber el peso en bytes de este archivo

"David" wrote

Sub tamaño()
Dim MiObjeto, MiArchivo, x As Variant
Set MiObjeto = CreateObject("scripting.filesystemobject")
Set MiArchivo = MiObjeto.getfile("c:\hola.txt")
x = MiArchivo.Size
MsgBox x
End Sub

...o un poco menos aparatoso:

Sub tamaño()
MsgBox FileLen("c:\hola.txt" )
End Sub

Saludos,
KL

thank