Copiar carpeta en segundo plano

Question

Hola, me gustaría saber como copiar una carpeta en segundo plano pues con este código se bloquea:

Dim obj_copiar As Object
Set obj_copiar = CreateObject("Scripting.FileSystemObject")
obj_copiar.copyfolder M*folder, App.Path & "\**** folders\" & addname

Gracias de antemano

alecamar

Answer 1

No lo he probado copiando carpetas, pero prueba colocando doevents justo antes de copiar.

Answer 2

No te entiendo, ¿ me puedes poner un ejemplo ?

Answer 3

Dim obj_copiar As Object
Set obj_copiar = CreateObject("Scripting.FileSystemObject")
doevents
obj_copiar.copyfolder M*folder, App.Path & "\**** folders\" & addname

Answer 4

gracias, me ha solucionado en parte el problema (estaba bloqueado 10 minutos) y ahora tarda 2 min. Gracias

Answer 5

Me complace. La dinámica (no es norma) es marcar como respuesta o útil cuando una respuesta ayuda a tu problema.

Buen día.