Corrigo, funciona perfectamente hasta esta linea:
      fso.MoveFolder sfolder.path,sCustomerPicturesPath

Aqui me da error de acceso denegado.

sCustomerPicturesPath es una caprpeta de mi propio ordenador, no deberia denegar el acceso.


Function MoveDeleteOldFolders(Root,MaxAgeInDays)


    Dim fso, sfolder, ofolder, oSubFolders
    Set fso = CreateObject ("Scripting.FileSystemObject")

    If fso.FolderExists(Root) Then

        Set ofolder = fso.GetFolder(Root)
        Set oSubFolders = ofolder.SubFolders
        Set sfolder = Nothing

       On Error Resume Next
       Err.clear

        For Each sfolder in oSubFolders
           If Err.Number <> 0 Then
            ESAHMI.ESAMSGBOX Err.Number
            Exit For 'If no permission or no subfolder in folder
         End If
           On Error goto 0
         createdDate = FormatDateTime(sfolder.DateCreated, "2")         'Getting folder date 2 = vbShortDate - Returns date: mm/dd/yyyy

            If (DateDiff("d", createdDate, Date) > MaxAgeInDays) Then
      fso.MoveFolder sfolder.path,sCustomerPicturesPath
                 fso.DeleteFolder sfolder.path, True
           End If
        Next
   Else
      AppendLog("WARNING" &chr(9) &"DataMaintenance: " &chr(9) &"Data _
                maintenance not done, folder doesn't exist. " &Root)
    End If

    Set fso = Nothing
    Set ofolder = Nothing
    Set oSubFolders= Nothing
    Set sfolder = Nothing
End Function