Siga-nos no Facebook Siga-nos no Instagram Siga-nos no LinkedIn Venha estudar Protheus
 
Bem Vindo Visitante Lista de Usuários

 Todos os Fórums
  ADVPL

Enviar para a impressoraImprimir   

Subject Copiar Arquivo
Mensagem do Enviar e-mail Abrir o Perfil do usu�rio VJSANTOS_ VJSANTOS_ em 17/03/2021 as 22:10 hs
Local: sp   Membro desde: 17/12/2010  Postagem: 86
Boa noite!

Preciso de uma funo que me possibilite realizar cpia dos arquivos que esto em C:\Totvs\protheus_data\workflow\emp01\process para C:\Totvs\process via schedule / Jobs!
Procurei muito e no encontrei nada que realize cpias em diretrios do server, o que encontrei foi apenas que realiza copias para a estao do usurio!
Algum consegue me ajudar?
Obrigado!

Mensagem do Enviar e-mail Abrir o Perfil do usu�rio SANCHESNET SANCHESNET em 18/03/2021 as 12:42 hs
Local: SP   Membro desde: 23/11/2006  Postagem: 657
Use a funo __CopyFile(), conforme exemplo abaixo:

Static Function CepimFil()
Local c_ArqOrig := ""
Local c_Local := "C:\"
Local C_MASC := '.'
Local cdest := "C:\temp\"//"\srv-intranet02\Dados\DoctosCepim\dbaccess.ini"

c_ArqOrig := cGetFile("Arquivos de Retorno|"+c_Masc+"|Todos os Arquivos|.", OemToAnsi("Abrir Arquivo..."), 0, ; c_Local, .T., GETF_LOCALFLOPPY + GETF_LOCALHARD + GETF_NETWORKDRIVE)

alert(c_ArqOrig) alert(cdest)

lRet := __CopyFile( c_ArqOrig, cdest,,,.F.)

If lRet
   Alert("Arquivo copiado com sucesso")
Else
   Alert("Arquivo no copiado")
EndIf

Return


Marcelo Sanches

Mensagem do Enviar e-mail Abrir o Perfil do usu�rio VJSANTOS_ VJSANTOS_ em 11/04/2021 as 12:36 hs
Local: sp   Membro desde: 17/12/2010  Postagem: 86
SANCHESNET,
Antes de mais nada,
Obrigado por sua ateno!
Forte Abrao!

Para participar do Fórum você precisa efetuar login primeiro
Caso você não esteja registrado registre-se para participar do fórum

 Mudar para Fórum