Je viens de me rendre compte que j'avais déjà fait ce code plusieurs fois : calculer la taille d'un répertoire... Sur le principe, c'est tout simple : lister tous les fichiers et faire la somme de leurs tailles, sur la réalisation je pense que c'est simple... un bon snippet en résumé ,-)
PROCEDURE nTailleRepertoire(sNomRepertoire est une chaîne)
ListeFichiers est une chaîne
Fichier est une chaîne
TailleTotale est un entier
// Récupération de la liste des fichiers du répertoire
ListeFichiers = fListeFichier(ComplèteRep(NomRepertoire)+"*.*",frRécursif)
// Parcours des fichiers
POUR TOUTE CHAINE sFichier DE ListeFichiers SEPAREE PAR RC
TailleTotale += fTaille(Fichier)
FIN
// On renvoie la taille
RENVOYER TailleTotale
Aucun commentaire:
Enregistrer un commentaire