[Shell]

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

[Shell]

Partiendo de este ejemplo:

GAMBAS

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

[vuott]

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

[tincho]

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

Pues si, lo unico que se me ocurre es eso, usar du.

Bash

du --summarize ~/UnDirectorio/

Saludos.

[cogier]

¿Ayudará esto?
 

GAMBAS

 
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

[jguardon]

¿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

[cogier]

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.

[jguardon]

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

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

Muchas gracias, cogier

[Shell]

¿Ayudará esto?

Gracias Charlie.

Lo pruebo y comento.

Saludos