Discussion :

[01Please]

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

[Cachlab]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?
++

[01Please]

Merci c'est parfait