Script pour savoir la taille d'un ensemble de fichier --> fichier log

Version imprimable

20/06/2014, 09h27
01Please

Script pour savoir la taille d'un ensemble de fichier --> fichier log

Bonjour,

Je n'ai pas vraiment de préférence pour coder ce script, ce n'est pas forcément en VBS mais j'imagine que c'est le langage le plus adapté ...

Je cherche à récupérer la taille d'un ensemble de fichier

LEVEL 1 14h00 2014-06-17 14.01.10 (Complète)
Ces fichiers porte le même nom sauf leur extension est différentes soit ZO1 , Z02 ... zip . Leur date de création peut s'étendre sur 2 jours mais ces fichiers ne sont pas séparer par d'autre fichiers, ils sont crée les un à la suite des autres...

dedans le dossier comportant ces fichiers d'autres fichiers sont présent notamment :
LEVEL 1 14h00 2014-06-18 14.01.25 (Différentielle)

Je ne veux pas les prendre en compte pour calculer la taille comment faire ce script?

Ensuite la taille de l'ensemble de ces fichiers doit être retourné dans un log.

Merci d'avance à ceux qui porteront attention à mon message :)

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
 
rech_fichier = "Nom_sans_extension" 'ici le nom de tes fichiers à traiter sans leur extension zip z01 ...
rep_path = "c:\path" 'ici le chemin du répertoire où se trouvent tes fichiers
fich_log = "c:\log.txt" 'ici chemin et nom du fichier log
 
If Not objFSO.FolderExists(rep_path) Then MsgBox "Répertoire introuvable", vbInformation, "Erreur" : WScript.Quit
If Not objFSO.FileExists(fich_log) Then objFSO.CreateTextFile(fich_log)
 
Set info_rep = objFSO.GetFolder(rep_path)
Set liste_fichiers = info_rep.Files
taille_rep = info_rep.Size
 
taille_fichiers = 0
For each fichier in liste_fichiers
nom_fichier = objFSO.GetBaseName(fichier)
If nom_fichier = rech_fichier Then taille_fichiers = taille_fichiers + fichier.size
Next
 
Rapport = "Taille du répertoire: " & taille_rep & " octets" & VbCrLf &_
	"Taille des fichiers recherchés: " & taille_fichiers & " octets" & VbCrLf &_
	"Taille des autres fichiers: " & taille_rep - taille_fichiers & " octets"
 
Set ecr = objFSO.OpenTextFile(fich_log, 2) : ecr.Write rapport : ecr.Close

Est-ce que cela correspond à ton besoin ?
++

26/06/2014, 20h39
01Please

Merci c'est parfait :king: