'---------------------- Sub informationDisqueDur()
Dim Fso As Object ' Afficher le nombre de disques Set Fso = CreateObject("Scripting.FileSystemObject")
Message = "NOMBRE DE DISQUES: " & Fso.Drives.Count & vbCrLf
' Afficher quelques infos sur le disque C Message = Message & "TAILLE DU DISQUE C: " & Fso.Drives.Item("C").TotalSize & vbCrLf Message = Message & "ESPACE LIBRE C: " & Fso.Drives.Item("C").freespace & vbCrLf Message = Message & "NUMERO DE SERIE DU DISQUE C: " & Fso.Drives("C").SerialNumber & vbCrLf
MsgBox Message ' Libérer les objets Set Fso = Nothing
End Sub '----------------------
Salutations!
"Kyvu" a écrit dans le message de news:02b601c3be7b$9a1d6b60$ Bonjour à tous,
Est-il possible en VBA de mesurer et renvoyer la taille d'un répertoire donné? Par exemple...
C:Archivages*.* --> 12,4 Mo
J'aimerai aussi pouvoir faire la même chose mais pour renvoyer l'espace libre d'un disque dur de mon choix.
Merci!
@micalement.
Kyvu On Line!
j
je pense qu'une solution très rapide consisterait à passer par l'intermédiaire de dir en dos, qui te renvoie très vite la réponse à ta question tu peux piloter tout ça avec VBA, pour cela, tu peux t'inspirer de : http://jacxl.free.fr/cours_xl/cours_xl_jac.html#compte_fichier (c'est du vbs et pas du vba, mais c'est presque pareil et le truc est focalisé sur le nombre de fichiers et non sur la taille, mais il suffit d'adapter)
"Kyvu" a écrit dans le message de news: 02b601c3be7b$9a1d6b60$ Bonjour à tous,
Est-il possible en VBA de mesurer et renvoyer la taille d'un répertoire donné? Par exemple...
C:Archivages*.* --> 12,4 Mo
J'aimerai aussi pouvoir faire la même chose mais pour renvoyer l'espace libre d'un disque dur de mon choix.
Merci!
@micalement.
Kyvu On Line!
je pense qu'une solution très rapide consisterait à passer par
l'intermédiaire de dir en dos, qui te renvoie très vite la réponse à ta
question
tu peux piloter tout ça avec VBA,
pour cela, tu peux t'inspirer de :
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#compte_fichier
(c'est du vbs et pas du vba, mais c'est presque pareil et le truc est
focalisé sur le nombre de fichiers et non sur la taille, mais il suffit
d'adapter)
"Kyvu" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 02b601c3be7b$9a1d6b60$a101280a@phx.gbl...
Bonjour à tous,
Est-il possible en VBA de mesurer et renvoyer la taille
d'un répertoire donné? Par exemple...
C:Archivages*.* --> 12,4 Mo
J'aimerai aussi pouvoir faire la même chose mais pour
renvoyer l'espace libre d'un disque dur de mon choix.
je pense qu'une solution très rapide consisterait à passer par l'intermédiaire de dir en dos, qui te renvoie très vite la réponse à ta question tu peux piloter tout ça avec VBA, pour cela, tu peux t'inspirer de : http://jacxl.free.fr/cours_xl/cours_xl_jac.html#compte_fichier (c'est du vbs et pas du vba, mais c'est presque pareil et le truc est focalisé sur le nombre de fichiers et non sur la taille, mais il suffit d'adapter)
"Kyvu" a écrit dans le message de news: 02b601c3be7b$9a1d6b60$ Bonjour à tous,
Est-il possible en VBA de mesurer et renvoyer la taille d'un répertoire donné? Par exemple...
C:Archivages*.* --> 12,4 Mo
J'aimerai aussi pouvoir faire la même chose mais pour renvoyer l'espace libre d'un disque dur de mon choix.
Merci!
@micalement.
Kyvu On Line!
Denis Michon
Bonour Kyru,
J'ai mal lu la question : Correctif apporté :
'--------------------- Sub TailleUnRépertoire()
Dim Fso As Object, A As Double Dim File As Object, Répertoire As String
Répertoire = "C:Excel"
Set Fso = CreateObject("Scripting.FileSystemObject") Set File = Fso.GetFolder(Répertoire) A = File.Size
MsgBox "Taille du répertoire " & File & " : " & A
End Sub '---------------------
Salutations!
"Kyvu" a écrit dans le message de news:02b601c3be7b$9a1d6b60$ Bonjour à tous,
Est-il possible en VBA de mesurer et renvoyer la taille d'un répertoire donné? Par exemple...
C:Archivages*.* --> 12,4 Mo
J'aimerai aussi pouvoir faire la même chose mais pour renvoyer l'espace libre d'un disque dur de mon choix.
Merci!
@micalement.
Kyvu On Line!
Bonour Kyru,
J'ai mal lu la question : Correctif apporté :
'---------------------
Sub TailleUnRépertoire()
Dim Fso As Object, A As Double
Dim File As Object, Répertoire As String
Répertoire = "C:Excel"
Set Fso = CreateObject("Scripting.FileSystemObject")
Set File = Fso.GetFolder(Répertoire)
A = File.Size
MsgBox "Taille du répertoire " & File & " : " & A
End Sub
'---------------------
Salutations!
"Kyvu" <anonymous@discussions.microsoft.com> a écrit dans le message de news:02b601c3be7b$9a1d6b60$a101280a@phx.gbl...
Bonjour à tous,
Est-il possible en VBA de mesurer et renvoyer la taille
d'un répertoire donné? Par exemple...
C:Archivages*.* --> 12,4 Mo
J'aimerai aussi pouvoir faire la même chose mais pour
renvoyer l'espace libre d'un disque dur de mon choix.
