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 32 33 34 35 36 37 38 39
| Sub creationrepertoire_AGE()
Dim I, fichier As Integer
Dim fso As FileSystemObject
Dim F As Object
Dim PATH, NOUVEAUFICHIER, STATE As String
Dim NOMRÉPERTOIRE, STRINGFILE, TEMPSTR As String
PATH = "c:\DETRUIT\"
Set fso = New FileSystemObject
For I = 1 To 100
NOMRÉPERTOIRE = Format(I, "000")
fso.COPYFOLDER PATH & "!RépertoireModèle", PATH & NOMRÉPERTOIRE
With Application.FileSearch
.SearchSubFolders = True
.MatchAllWordForms = True
.LookIn = PATH & NOMRÉPERTOIRE
.FileType = msoFileTypeAllFiles
STRINGFILE = "*XXX*"
.FileName = STRINGFILE
.Execute
For fichier = 1 To .FoundFiles.Count
TEMPSTR = .FoundFiles(fichier)
Name TEMPSTR As Replace(TEMPSTR, "XXX", NOMRÉPERTOIRE, 1)
Next fichier
End With
Next
End Sub |
Partager