Taille d'un répertoire

Commenter

Contenu du snippet

Fonction récursive en vb6 permettant de connaitre la taille d'un répertoire (avec les sous-répertoires).

Source / Exemple : 


Function Taille_Repertoire(Nom_Repertoire As String) As Double
    
    Dim Nom_Fichier As String
    Dim Nombre_Repertoire As Long
    Dim Taille_Fichier As Double
    Dim Libelle_Repertoire(100) As String 'On peut mettre plus ....
    Dim I As Long
        
    'Déclaration des variables
    Nombre_Repertoire = 0
    Taille_Fichier = 0
       
    'Recherche les informations du répertoire concernées différents répertoire
    Nom_Fichier = Dir(Nom_Repertoire & "\")
    Do While Nom_Fichier <> ""
        If GetAttr(Nom_Repertoire & "\" & Nom_Fichier) <> vbDirectory Then
            Taille_Fichier = Taille_Fichier + FileLen(Nom_Repertoire & "\" & Nom_Fichier)
        Else
            If GetAttr(Nom_Repertoire & "\" & Nom_Fichier) = vbDirectory And Nom_Repertoire <> "." And Nom_Repertoire <> ".." Then
                Nombre_Repertoire = Nombre_Repertoire + 1
                Libelle_Repertoire(Nombre_Repertoire) = Nom_Repertoire & "\" & Nom_Fichier
            End If
        End If
        Nom_Fichier = Dir
    Loop
    
    Nom_Fichier = Dir(Nom_Repertoire & "\*.", vbDirectory)
    Do While Nom_Fichier <> ""
        If GetAttr(Nom_Repertoire & "\" & Nom_Fichier) = vbDirectory And Nom_Fichier <> "." And Nom_Fichier <> ".." Then
            Nombre_Repertoire = Nombre_Repertoire + 1
            Libelle_Repertoire(Nombre_Repertoire) = Nom_Repertoire & "\" & Nom_Fichier
        End If
        Nom_Fichier = Dir
    Loop
      
    'Recherche les informations des sous-répertoires
    For I = 1 To Nombre_Repertoire
        Taille_Fichier = Taille_Fichier + Taille_Repertoire(Libelle_Repertoire(I))
    Next I
    
    Taille_Repertoire = Taille_Fichier
    
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_FPatrick)