AutoIt Français

Code : Tout sélectionner

#include<FileListToArray3.au3>
#include <Array.au3>

$timer1=TimerInit()
$tab1=f_DirGetSizeAvecExt(@MyDocumentsDir,"*.*")
$delta1=TimerDiff($timer1)/1000

$timer2=TimerInit()
$tab2=DirGetSize(@MyDocumentsDir,1)
$delta2=TimerDiff($timer2)/1000

ConsoleWrite("Taille :" & @TAB & $tab1[0] & " = " & $tab2[0] & @CRLF)
ConsoleWrite("Nb fichiers :" & @TAB & $tab1[1] & " = " & $tab2[1] & @CRLF)
ConsoleWrite("Nb sous rép :" & @TAB & $tab1[2] & " = " & $tab2[2] & @CRLF)
ConsoleWrite("Durée :" & @TAB & $delta1 & " = " & $delta2 & @CRLF)


Func f_DirGetSizeAvecExt($DGSAE_rep,$DGSAE_ext)

    ; Taille
    $DGSAE_fichier_tab = _FileListToArray3 ($DGSAE_rep,$DGSAE_ext, 1, 1, 1,"")


    ; Raz taille
    $DGSAE_taille=0

    ; Boucle fichiers pour taille
    For $i=1 to UBound($DGSAE_fichier_tab)-1
        $DGSAE_taille=$DGSAE_taille+FileGetSize($DGSAE_fichier_tab[$i])
    Next

    ; Nb fichiers
    $DGSAE_nbfichiers=UBound($DGSAE_fichier_tab)-1

    ; Récup sous rép
    $DGSAE_rep_tab = _FileListToArray3 ($DGSAE_rep, "*", 2, 1, 0,"")

    ; Nb sous rép
    $DGSAE_nb_rep=UBound($DGSAE_rep_tab)-1

    ; Préparation tableau return
    $DGSAE_tab=$DGSAE_taille& "|" & $DGSAE_nbfichiers & "|" & $DGSAE_nb_rep

    ; Création tableau
    $DGSAE_tab=StringSplit($DGSAE_tab,"|")

    ; Suppression ligne 0 pour correspondre au retour de DirGetSize
    _ArrayDelete($DGSAE_tab,0)

    Return $DGSAE_tab

EndFunc

 

Code : Tout sélectionner

Local $timer1=TimerInit()
Local $tab1 = _DirGetSizeExt(@MyDocumentsDir, "*", 1)
Local $delta1=TimerDiff($timer1)/1000

Local $timer2=TimerInit()
Local $tab2 = DirGetSize(@MyDocumentsDir, 1)
Local $delta2=TimerDiff($timer1)/1000



ConsoleWrite("Taille :" & @TAB & $tab1[0] & " = " & $tab2[0] & @CRLF)
ConsoleWrite("Nb fichiers :" & @TAB & $tab1[1] & " = " & $tab2[1] & @CRLF)
ConsoleWrite("Nb sous rép :" & @TAB & $tab1[2] & " = " & $tab2[2] & @CRLF)
ConsoleWrite("Durée :" & @TAB & $delta1 & " = " & $delta2 & @CRLF)




; #FUNCTION# ====================================================================================================================
; Name ..........: _DirGetSizeExt
; Description ...: Returns the size in bytes of a file list by extension.
; Syntax ........: _DirGetSizeExt($sDir[, $sExt = "*"[, $iFlag = 0]])
; Parameters ....: $sDir                - The directory to search in.
;                  $sExt                - [optional] Extension of files to serch for. Default is "*" (all extensions).
;                  $iFlag               - [optional] 0 (default) = Returns the size
;                                                    1 = Extended mode is On -> returns an array that contains extended information (see Remarks). 
; Return values .: Success = The size in bytes, or a single dimension array
;                  Failure = -1 and sets the @error flag to 1 if the path doesn't exist.
; Author ........: jguinch
; Remarks .......: If you use the extended mode then the array returned from this function is a single dimension array containing the following elements:
;                    $aArray[0] = Size
;                    $aArray[1] = Files count
;                    $aArray[2] = Dirs Count
; ===============================================================================================================================
Func _DirGetSizeExt($sDir, $sExt = "*", $iFlag = 0)
    If NOT FileExists($sDir) Then Return SetError(1, 0, -1)
    If $sExt = "*" Then $sExt = "?.*"
    
    Local $aDirs[1] = [ $sDir ]
    Local $iCountDir = 0, $iCountFile = 0, $n = 0
    Local $hSearch, $sFileName
    Local $iSize = 0


    While 1
        $hSearch = FileFindFirstFile( $aDirs[$n]  & "\*.*"  )
        If $hSearch <> -1 Then

            While 1
                $sFileName = FileFindNextFile($hSearch)
                If @error Then ExitLoop

                If @Extended Then
                    $iCountDir += 1
                    If $iCountDir >= UBound($aDirs) Then Redim $aDirs[ UBound($aDirs) * 2]

                    $aDirs[$iCountDir] = StringRegExpReplace($aDirs[$n], "\\$", "") & "\" & $sFileName
                Else
                    
                    If StringRegExp($sFileName, "(?i)\." & $sExt & "$") Then
                        $iSize += FileGetSize($aDirs[$n] &  "\" & $sFileName)
                        $iCountFile += 1
                    EndIf
                    ;ConsoleWrite($aDirs[$n] &  "\" & $sFileName & @CRLF)
                EndIf
            WEnd
        EndIf
        FileClose($hSearch)

        If $n = $iCountDir Then ExitLoop
        $n += 1

    WEnd

    If NOT $iFlag Then Return $iSize

    Local $aResult[3] = [ $iSize, $iCountFile, $iCountDir ]
    Return $aResult

EndFunc