Buenas!.

Tenemos el método size de la clase Stat. Pero eso no da el tamaño de un directorio, nos da el de un archivo.
¿ No existe en Gambas esa posibilidad ?. Sin tener que hacer uso del comando "du" desde Shell.

¿ Un procedimiento recursivo que vaya sumando el tamaño de cada archivo ?.

Saludos

Partiendo de este ejemplo:

Código:

Public Function ScanDir(sDir As String) As Long

   Dim sFile As String
   Dim sPath As String
   Dim hStat As Stat
   Dim aDir As String[]
   Dim iSize As Long

   Try hStat = Stat(sDir)
   If Error Then Return -1
   iSize = hStat.Size
   If hStat.Type <> gb.Directory Then Return iSize
   Try aDir = Dir(sDir)

   For Each sFile In aDir

     sPath = sDir &/ sFile
     Try hStat = Stat(sPath)
     If Error Then Continue

     With hStat
       If .Type = gb.Directory Then
         Try iSize += ScanDir(sPath)
       Endif
       Try iSize += .Size
     End With
   Next
   Return iSize

End

Se encuentra en la lista internacional.

Saludos

Eh, sì... tendrás que usar la función "Dir()".

Sin tener que hacer uso del comando "du" desde Shell.

Pues si, lo unico que se me ocurre es eso, usar du.
[code]
Saludos.

¿Ayudará esto?
 

Código:

 
Public Sub Form_Open()

  Print ScanDir(User.Home)

End

Public Sub ScanDir(sPath As String) As String

  Dim sFile As String
  Dim lSize As Long

  For Each sFile In Dir(sPath, "*", gb.File)
    lSize += Stat(sPath &/ sFile).Size
  Next

  Return sPath & " = " & Format(lSize / 1000000, "0.0") & "MB"

End

¿Ayudará esto?

Sólo funciona si dentro de un directorio sólo hay ficheros. Si hay varios niveles de directorios y subdirectorios, creo que no va a funcionar. Tendría que ser una función recursiva que vaya entrando en cada subdirectorio, sumando tamaños y regresando a la raíz para continuar con el siguiente. 

Saludos

Sólo funciona si dentro de un directorio sólo hay ficheros. Si hay varios niveles de directorios y subdirectorios, creo que no va a funcionar. Tendría que ser una función recursiva que vaya entrando en cada subdirectorio, sumando tamaños y regresando a la raíz para continuar con el siguiente. 

En primer lugar, ¡bienvenido!
Simplemente cambia 'Dir' por 'RDir'. Eso escaneará todos los subdirectorios.

Simplemente cambia 'Dir' por 'RDir'. Eso escaneará todos los subdirectorios.

Wow, no conocía la función recursiva RDir. Genial!!!!

Muchas gracias, cogier

¿Ayudará esto?

Gracias Charlie.

Lo pruebo y comento.

Saludos