Eu já vi alguma documentação sobre isso, mas até agora nada que eu possa replicar para o meu projeto específico.

Meu código aponta para um diretório que contém aproximadamente 60 subpastas. Dentro dessas subpastas existem vários arquivos .PDF / .XLS etc. O código a seguir funciona bem se os arquivos não estiverem incorporados nas subpastas, mas o que eu preciso fazer é poder percorrer as subpastas e puxar os arquivos para mover. Além disso, existe uma maneira de, eventualmente, puxar arquivos pelo nome do curinga? Agradecemos antecipadamente por qualquer ajuda.

  Dim FSO As Object
  Dim FromPath As String
  Dim ToPath As String
  Dim Fdate As Date
  Dim FileInFromFolder As Object

  FromPath = "H:\testfrom\"
  ToPath = "H:\testto\"

  Set FSO = CreateObject("scripting.filesystemobject")
  For Each FileInFromFolder In FSO.getfolder(FromPath).Files
  Fdate = Int(FileInFromFolder.DateLastModified)
      If Fdate >= Date - 1 Then

        FileInFromFolder.Copy ToPath

    End If
Next FileInFromFolder
End Sub