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