récupérer le nom des fichiers d'un rep en vbscript

Question

Salut, 
J'aimerai récupérer, grâce à un script vbs, le nom des fichiers contenus dans un répertoire en particulier.
Comment dois-je procéder?
Quelle méthode WSH dois-je utiliser?
Ou si vous avez une autre solution!!!

Merci d'avance !

Thekinder
Légion Cavalerie : http://legioncavalerie.free.fr
Le Cent Garde : http://lecentgarde.free.fr
Site sur Patrick de Gayardon et le para : http://degayardon.free.fr

cs_JMO · Answer

Bonjour,

Autre procédure, en VBS, que je viens de créer pour un client.
But: 
Copy de x fichiers d'un répertoire vers un autre répertoire en fonction du jour de la semaine et en préfixant ces nouveaux fichiers par aammjj
Sur ma bécane, je n'ai pas VB (que je ne connais pas du tout), donc je fais des procs en VBScript. Un peu lourd, mais très interessant à faire.....pourvu que l'on soit patient...
Bon week-end et à +.
          jean-marc

thekinder · Answer

Salut, 
merci de ton interet pour ma question.
Si tu peux m'envoyer ce nouveau code ce serait hyper cool parcequ'en fait je dois aussi comparer des dates au final.
Merci d'avance.

Thekinder
Légion Cavalerie : http://legioncavalerie.free.fr
Le Cent Garde : http://lecentgarde.free.fr
Site sur Patrick de Gayardon et le para : http://degayardon.free.fr

cs_JMO · Answer

Excuse-me, j'ai oublié de faire copier/coller.

' Création des fichiers *.doc (sauf Consigne.doc
' à partir du répertoire "e:\Modèles\ vers le
' répertoire "e:\Rapports......" en fonction de 
' la date du jour. Les fichiers créés sont
' préfixés par "jj_mm_aaaa_"
' Cette procédure (script VBS) est associée
' au Planificateur de tâches
'
Dim fso, jour, aa, mm, jjmmaa
Dim wSrce, wDest1, wDest2, wDest3, wDest4, wDest5
Dim dossier, fichier, fichiers, newname 

wSrce  = "e:\Modèles"
wDest1 = "e:\Rapports 01 Lundi à Mardi"
wDest2 = "e:\Rapports 02 Mardi à Mercredi"
wDest3 = "e:\Rapports 03 Mercredi à Jeudi"
wDest4 = "e:\Rapports 04 Jeudi à Vendredi" 
wDest5 = "e:\Rapports 05 Vendredi à Samedi"
jour   = DatePart("w", Date)
aa     = DatePart("yyyy", Date) 
mm     = month(now)
If Len(mm) = 1 Then
   mm = "0" & mm
End If
jjmmaa = Left(Date,2) & "_" & mm & "_" & aa

Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder(wSrce)
Set fichiers = Dossier.files
For Each fichier in fichiers
   If fichier.name <> "Consigne.doc" Then
      Newname = jjmmaa & "_" & fichier.name 
      Select Case jour
         Case 2 'Lundi
            fso.CopyFile fichier, wDest1 & Newname
         Case 3 'Mardi
            fso.CopyFile fichier, wDest2 & Newname
         Case 4 'Mercredi
            fso.CopyFile fichier, wDest3 & Newname
         Case 5 'Jeudi
            fso.CopyFile fichier, wDest4 & Newname
         Case 6 'Vendredi
            fso.CopyFile fichier, wDest5 & Newname
         Case Else MsgBox "Procédure interdite aujourd'hui"
            WScript.Quit
      End Select
   End If
Next

Récupérer le nom des fichiers d'un rep en vbscript

3 réponses

Discussions similaires