archivos mayores de 2gb con Filelen - Respuesta
Publicado por Antoni Masana (2477 intervenciones) el 25/05/2015 12:39:04
Espero que esto te de una idead como solventarlo
Resultado de la ejecución de la macro
Tamaño... 3133157376
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
0