Ya, ya, saqué un poco por logica que seria eso. De todas maneras tu codigo solo me copia las carpetas que no tienen el nombre de ese dia y lo que cuelga de ellas, en cambio los archivos sueltos no los copia y lo que hace es machacar la carpeta. Pero he podido solucionarlo añadiendol otra funcion que encontré:
Código:
Private Function CopiaFichDir(origen As String, destino As String, NumFiles As Integer)
Dim FileName As String
Dim filedir As String
Dim oldDir As String
Dim newDir As String
oldDir = origen
If Right$(oldDir, 1) <> "\" Then
oldDir = oldDir & "\"
End If
newDir = destino
If Right$(newDir, 1) <> "\" Then
newDir = newDir & "\"
End If
NumFiles = 0
FileName = Dir(oldDir & "*.*")
While FileName <> ""
FileCopy oldDir & FileName, newDir & FileName
NumFiles = NumFiles + 1
FileName = Dir$
DoEvents
Wend
End Function
Muchisimas gracias que algun ente divino os acoja en vuestra gloria,xD.