Discussion :

[bsuge]

Bonjour,

Je suis à la recherche d'un script qui me permettrait d'avoir dans un fichier csv, le nombre de fichier TIF contenu dans un sous répertoire.
En fait, le fichier de récap se présenterait de la façon suivante :

Libelle sous répertoire1; nombre
libelle sous repertoire 2; nombre
-----------------------------
total; somme nombre

Merci d'avance pour votre aide.

[pc75]

Bonjour,

Regarde l'objet FileSystemObject et plus particulièrement la fonction GetFolder()

[hackoofr]

Recherche & Sauvegarde des fichiers par leurs Extensions

[bsuge]

Merci pour vos indications, j'ai pu avancer sur mon script et générer mon fichier.
Cependant, souhaites ajouter à la fin du fichier un récap du nombre de fichier au total.
Comment je peux le récupérer ?
Ci-joint un exemple de fichier obtenu et voici également mon code

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
25
26
27
28
29
30
31
Const RETURNONLYFSDIRS = &H1
Const ForAppending = 8
 
Set oShell = CreateObject("Shell.Application")
Set Folder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", RETURNONLYFSDIRS, "\\Spiwebindex\scan\Coupons\img")
If Folder is Nothing Then 
	MsgBox "Abandon opérateur",vbCritical
Else
  Set FolderItem = Folder.Self
End If
 
Dim stRep 'Nom du répertoire à parcourir
Dim FSO,Fld
stRep = FolderItem.Path
nomRep = FolderItem.Name
Set FSO = CreateObject("Scripting.FileSystemObject")
Set NewFile = FSO.CreateTextFile(stRep&"\"&nomRep&".csv", True)
If FSO.FolderExists(stRep) Then
	For each Fld in FSO.GetFolder(stRep).SubFolders
		NewFile.WriteLine(Fld.Name&";"&Fld.Files.Count)
	Next
	NewFile.Close
Set AppFile = FSO.OpenTextFile(stRep&"\"&nomRep&".csv",ForAppending, True)
	AppFile.WriteLine("TOTAL"&";")
	AppFile.Close
End If
 
 
Set FolderItem = Nothing
Set Folder = Nothing
Set oShell = Nothing