lecture de la liste des fichiers dans un rép

Bonjour,


Voila dans un dossier j'ai des fichier de ce type :
- test120501.txt
- test120502.txt
- test120503.txt

Je souhaite récupérer les noms des fichiers se trouvant dans le dossier et pour chaque nom (ex test120501.txt)

- créer un dossier avec comme nom la date (120501)
- copier le fichier (test120501) dans le dossier que je viens de créer (120501) avec le nom test.txt

merci de votre aide

:salut:
une solution peut-être mais en vbscript :mouarf:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim oFSO,oFld Set oFSO = CreateObject("Scripting.FileSystemObject") MonDossier = "c:\test\" For each oFl in oFSO.GetFolder(MonDossier).Files NomDate = Mid(oFl.Name,5,6) If Not oFSO.FolderExists(MonDossier & NomDate) Then CreerDossier MonDossier & NomDate End If oFl.Move MonDossier & NomDate &"\test.txt" Next Function CreerDossier(Dossier) Dim oFSO,oFld Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFld=oFSO.CreateFolder(Dossier) Set oFSO = Nothing End Function

---