>PROCEDURE RENOMEAR >lnFiles = ADIR(aFiles, "D:\Trabalho_Clientes\Sgate_BD\Myfile.xlsx") >FOR lnFor = 1 TO lnFiles > IF LEFT(aFiles[lnFor, 1], 1) == "." > LOOP > ENDIF > lcSource = "D:\Trabalho_Clientes\Sgate_BD\"+aFiles[lnFor, 1] > *lcTarget = "D:\Trabalho_Clientes\Sgate_BD\"+DTOS(aFiles[lnFor, 3]) + aFiles[lnFor, 1] > lcTarget = "D:\Trabalho_Clientes\Sgate_BD\"+SUBSTR(TTOC(DATETIME(),3),12)+Dtos(aFiles[m.lnFor, 3]) +CHRTRAN(aFiles[m.lnFor, 4],':','') + aFiles[m.lnFor, 1] > RENAME (lcSource) TO (lcTarget) >NEXT >ENDPROC >>
>PROCEDURE RENOMEAR >lnFiles = ADIR(aFiles, "D:\Trabalho_Clientes\Sgate_BD\Myfile.xlsx") >FOR lnFor = 1 TO lnFiles > IF LEFT(aFiles[lnFor, 1], 1) == "." > LOOP > ENDIF > lcSource = "D:\Trabalho_Clientes\Sgate_BD\"+aFiles[lnFor, 1] > *lcTarget = "D:\Trabalho_Clientes\Sgate_BD\"+DTOS(aFiles[lnFor, 3]) + aFiles[lnFor, 1] > lcTarget = "D:\Trabalho_Clientes\Sgate_BD\"+Dtos(aFiles[m.lnFor, 3]) +CHRTRAN(aFiles[m.lnFor, 4],':','') + aFiles[m.lnFor, 1] > RENAME (lcSource) TO (lcTarget) >NEXT >ENDPROC >>