Excel - archivos mayores de 2gb con Filelen - Respuesta

   
Vista:
Imágen de perfil de Antoni Masana

archivos mayores de 2gb con Filelen - Respuesta

Publicado por Antoni Masana (264 intervenciones) el 25/05/2015 12:39:04
Espero que esto te de una idead como solventarlo

1
2
3
4
5
6
Sub Macro_1()
    Dim Size As Double
    Size = FileLen("C:\Hiberfil.sys")
    If Size < 0 Then Size = Size + (4# * 1024# * 1024# * 1024#)
    MsgBox ("Tamaño... " & Size)
End Sub

Resultado de la ejecución de la macro

Tamaño... 3133157376
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder