consulta envio un email con adjunto y me mantiene la carpeta abierta o bloqueda, como desbloquear la carpeta usada en el envio de email

[Marcelo Barberis]

tengo este proceso y desde esta carpeta envio por correo el adjunto, el envio se realiza correctamente, una vez realizado este proceso debo borrar el contenido de estas carpetas, ese proceso se realiza a posterior, pero el problema que tengo es que esta carpeta XML_OFFLINE y su contenido queda enganchada o bloqueada para su posterior eliminacion, ahora porque digo eso porque realize otra prueba donde no incluye en envio de email ahora en ese caso el proceso para borrar la carpeta XML_OFFLINE y todo su contenido se realiza correctamente y sin problema.

Mi consulta se basa en como podria desbloquear esta carpeta bloqueada en el envio de email.

Yo realize otra prueba, despues del error que me da cuando intento borrar la carpeta por codigo dejo el sistema abierto no lo cierro es decir no salgo del sistema, quiero borrar dicha carpeta manualmente y no me deja borrar porque otro proceso lo tiene abierto, por eso digo que este proceso de envio de email como hace uso de la carpeta para enviar el adjunto me lo tiene abierta, por ahi lei que si pongo THIS.loSmtp.clean = .t. en el envio de email se solucionaba pero no afecta nada el uso de THIS.loSmtp.clean = .t.

La herramienta que uso en envio de email es la del señor Meza, desde ya agradesco sus comentarios

lcXMLFact = ADDBS(SYS(5) + CURDIR()) + "XML_OFFLINE\SECTOR_1\FIRMADO\"
lcFactPDF = ADDBS(SYS(5) + CURDIR()) + "PDF_Facturas\"
lcArcPDF = lcFactPDF + lcAdjunto + ".pdf"
lcArcXML = lcXMLFact + lcAdjunto + ".xml"
IF !EMPTY(lcEmail)
THIS.Enviar_Email (lcArcPDF,lcArcXML,lcEmail,lcTituloEmail)
THISFORM.Refresh ()
ENDIF 

--

Marcelo Barberis Gutierrez
Sistemas Informaticos
Villa Montes - Bolivia
Telef.: +591-76830544

[jmr...@gmail.com]

Asi a bote pronto se me ocurre:

RELEASE lcArcXML