FoxPro/Visual FoxPro - ayuda archivos

*<Evento Timer del control Timer>

TRY

	LOCAL lnFiles ,i ,loFso as Object,;

		loEx as Exception,;

		lcInput , lcOutPut

	LOCAL ARRAY laFiles(1)

	lcInPut="c:\theodore\entrada\new"       && normalmente sería una propiedad del form

	lcOutPut = "c:\theodore\entrada\old"    && normalmente sería una propiedad del form

	lnFiles = ADIR(laFiles,ADDBS(m.lcInput)+"*.dbf","",1)

	IF lnFiles > 0

               *  convendrá detener el timer hasta que finalice el actual proceso de actualización

               This.Enabled = .F.

		WAIT WINDOW "Procesando "+TRANSFORM(lnfiles)+" pedidos..." AT 20,20 NOWAIT

		loFso = NEWOBJECT("Scripting.FileSystemObject")

		* Mudar lo que llega a carpeta "Old"

		FOR i=1 TO lnFiles

                        * Si el archivo ya existe en lcOutput, lo borramos para evitar errores en el moveFile

			IF loFso.fileExists(ADDBS(m.lcOutput)+laFiles[m.i,1])

				loFso.Deletefile(ADDBS(m.lcOutput)+laFiles[m.i,1])

			ENDIF

                       * Mueve el archivo arribado a la carpeta \OutPut

			loFso.MOveFile(ADDBS(m.lcInput)+laFiles[m.i,1] , ADDBS(m.lcOutput))

		NEXT

                * Procesa los dbf recién arribados, pero leyendo de la carpeta de depósito (lcOutPut)

		FOR i=1 TO lnfiles

			lcFileProc = ADDBS(m.lcOutPut)+laFiles[m.i,1]

			lcAlias = JUSTSTEM(laFiles[m.i,1])

			USE (lcFileProc) IN 0 EXCLUSIVE

			SELECT (lcAlias)

			* BROWSE   && unicamente para pruebas

			* do_Procedure_()        && proceso de actualización

			SELECT (lcAlias)

			USE

		NEXT

		WAIT CLEAR

	ENDIF

CATCH TO loex

	loex.UserValue=PROGRAM()

	ShowError(loEx)

FINALLY

	loFso = null

        This.Enabled = .T.

ENDTRY