Mostrar Mensajes
Necesito ayuda con este problema.
* Intento averiguar que tamaño tiene una carpeta (Usuario Activo de Windows).
* Cuando miro la propiedades en Windows, la carpeta me ocupa unos 45 gb.
* Cuando ejecuto mi codigo la capacidad es distinta. (14 Gb aproximadamente.
En que me estoy equivocando?
Mi código
Código:
Private Function TamDir(sdir As String)
Dim di As New DirectoryInfo(sdir)
Dim info As FileInfo
Dim Suma As Long
For Each info In di.GetFiles("*", SearchOption.TopDirectoryOnly)
Suma = Suma + info.Length
Next
MsgBox(Suma)
End Function
Espero me podais ayudar
Muchas gracias y un saludo a todos