Bonjour

En reprenant un script qui supprime les répertoires plus vieux de 30 J j'ai fais une modification pour avoir un script qui déplace les répertoires plus vieux 1 jour du répertoire d:\PRA vers d:\PRA\toto

j'ai une erreur lors de l'exécution en ligne 25, et comme je ne pige rien, je galère

Merci pour votre aide


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
19
20
21
22
23
24
25
26
27
28
29
Dim objFso, objFolder, objSubFolder 
Dim strPath 
Dim diffDate 
Dim arrSubFolder()
Dim i
 
strPath = "d:\PRA\"
nbDays = 1
 
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(strPath)
Set objSubFolder = objFolder.SubFolders
 
For Each folder in objSubFolder
     diffDate = DateDiff("d",folder.DateCreated,Now)
          if diffDate > nbDays then
                ReDim preserve arrSubFolder(i)
                arrSubFolder(i) = folder.Name
                i = i + 1
        end if
Next
 
For Each folder in arrSubFolder
    oFSO.MoveFolder "strPath &","d:\PRA\toto"
Next
 
set objFso = nothing
set objFolder = nothing
set objSubFolder = nothing