Extrcation automatique des fichiers dans des dossiers

Version imprimable

Bonjour,

J'espère que je susi sur le bon forum... Sinon, n'hésitez pas à me rediriger.

Ma question :
J'ai un script vbs qui me permet d'extraire tous les fichiers .pdf présent dans les dossiers/sous-dossiers/sous-sous-dossiers etc. présent dans le dossier où est enregistré le fichier .vbs.

J'ai essayé de le modifier pour l'adapter à l'extraction de fichiers .xlsx mais ça ne marche pas. Pourriez-vous y jeter un oeil et m'aider à le corriger ?

Le script :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim fso, fso1, ff, dossier_racine, sous_dossier, nom_fichier, Chemin_dossier, list_dossier,Chemin_dest,ss_dossier,list_ssdossier
  Chemin_dossier = "chemin du dossier"
  Chemin_dest = "chemin du dossier"
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set fso1 = CreateObject("Scripting.FileSystemObject")
   Set dossier_racine = fso.GetFolder(Chemin_dossier)
   Set list_dossier = dossier_racine.SubFolders  '= parcours CN-2000
For Each sous_dossier in list_dossier  '= parcours CN-2000
   set list_ssdossier = sous_dossier.SubFolders 
	  For Each ss_dossier in list_ssdossier '= parcours 8577y
            Set fichier = fso1.GetFolder(ss_dossier)
            Set nom_fichier = fichier.Files
	        For Each le_fichier in nom_fichier
                  extension = fso.GetExtensionName(le_fichier)
                  if  extension = "xlsx" then
                       Set  ff = fso1.GetFile(le_fichier)
		                ff.Copy (Chemin_dest)
                   end if
            Next
      Next 
 Next
 MsgBox ("Terminé")

Merci,
Vincent

Bonjour,

Code:

1
2
3
4
5
 
.....
extension = fso.GetExtensionName(le_fichier)
if Right(extension, 4) = "xlsx" then
.....

14/06/2012, 15h36
vinvol

Merci pc75 pour cette réponse, mais ça ne change rien.
Le fichier tourne, me renvoie la fenêtre "Terminé", mais aucun fichier ne remonte.

Si quelqu'un à une autre solution...

Vincent

Re,

Code:

1
2
3
4
5
6
 
.....
extension = fso.GetExtensionName(le_fichier)
if uCase(Right(le_fichier.Name, 4)) = "XLSX" then
   MsgBox le_fichier.Name
.....

14/06/2012, 17h26
vinvol

Re,

Ca ne change rien au résultat. Fenêtre "terminé" alors qu'aucun fichier ne remonte.

Je le testerai sur un autre ordinateur ce soir, pour voir si c'est lié à la configuration ou non.

Merci encore.

Vincent
15/06/2012, 10h42
papyxy

Bonjour
je crois qu'il y-a un problème sur la ligne 17.
Allez voir dans la FAQ :

Citation:

http://vb.developpez.com/faqvbs/?pag...fsoCopyFichier
16/06/2012, 22h12
SfJ5Rpw8

Bonsoir,

Pourquoi utiliser plusieurs objet filesystem un seul suffit..

Soit plus clair pc75 ta proposé de faire un test en rajoutant un message box on attends toujours le retour de ton test...

Ligne 16 pourquoi rajouter un getfile .. utilise directement ton objet le_fichier