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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 330 fois - Téléchargée 75 fois

Commenter

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
dparize Messages postés 6 Date d'inscription mercredi 2 juin 2004 Statut Membre Dernière intervention 22 décembre 2014
2 sept. 2004 à 11:58
désolé pour les fautes
dparize Messages postés 6 Date d'inscription mercredi 2 juin 2004 Statut Membre Dernière intervention 22 décembre 2014
2 sept. 2004 à 11:57
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.
acidwar666 Messages postés 6 Date d'inscription mardi 18 mai 2004 Statut Membre Dernière intervention 15 février 2008
19 mai 2004 à 10:15
Merci bcp pour ce code hyper simple.

PS: dites donc avec vos critiques, vous feriez mieux de balayer devant chez vous avant de gueuler.
lepopeye Messages postés 2 Date d'inscription jeudi 3 juillet 2003 Statut Membre Dernière intervention 15 octobre 2003
27 janv. 2004 à 11:10
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. ;)
redee Messages postés 10 Date d'inscription vendredi 11 avril 2003 Statut Membre Dernière intervention 6 janvier 2004
6 janv. 2004 à 22:23
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!
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 (tebbaa)