Taille d'un lecteur ou d'un repertoire en octets

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 093 fois - Téléchargée 72 fois

Contenu du snippet

Ces lignes de code permetent de retourner la taille(en octet) d'un lecteur logique,ou d'un répertoire.

Source / Exemple :


Private Sub command_click()

Dim fso, f, s
Set fso = CreateObject ("Scripting.FileSystemObject")
Set f = fso.GetFolder(text1.Text)
s = UCase(f.Name) & "utilise" & f.Size & " Octets"
MsgBox s

End Sub

Conclusion :


creer dans une feuille(Form VB) une Zone TEXT(à saisir le Lecteur exple C:\ , ou C:\VB\ )
Lancer l'excution.
Si l'execution retourne un message d'erreur, veuillez me contacter.

A voir également

Ajouter un commentaire

Commentaires

Messages postés
6
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
22 décembre 2014

désolé pour les fautes
Messages postés
6
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
22 décembre 2014

Merci pour ce code, j'en avais besoin.
rien ne sert de critiquer bêtement les codes des autres.

Si vous aimez votre travaille, il serais préférable de remercier les personnes de ce site qui essayent d'aider les autres.

Je hais les informaticiens qui croient tous savoir mieux que les autres et qui s'empressenr de critiquer pour leur bon plaisir.
Messages postés
6
Date d'inscription
mardi 18 mai 2004
Statut
Membre
Dernière intervention
15 février 2008

Merci bcp pour ce code hyper simple.

PS: dites donc avec vos critiques, vous feriez mieux de balayer devant chez vous avant de gueuler.
Messages postés
2
Date d'inscription
jeudi 3 juillet 2003
Statut
Membre
Dernière intervention
15 octobre 2003

En tout cas moi j'ai pu trouver par la recherche exactement le code que je voulais, donc je critique pas, surtout quand c'est pas constructif, enfin bon, voila quoi. ;)
Messages postés
10
Date d'inscription
vendredi 11 avril 2003
Statut
Membre
Dernière intervention
6 janvier 2004

Pour t'encourager un peu, j'avais besoin d'une solution rapide à un problème plutôt simple (je n'avais pas plus de 2 minutes pour trouver la solution et j'avais une dure journée dans le corps donc la tête allait explosée et je n'avais donc pas du tout le goût de penser!). Ton code fut donc un soulagement pour ma pauvre tête!
Afficher les 22 commentaires

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.