Discussion :

[radahm]

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

[hackoofr]

une solution peut-être mais en vbscript

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