Dúvida com a função Leto_FCopyFromSrv()

[Jairo Maia]

Olá Pessoal,

Alguém usa a função Leto_FCopyFromSrv()?

Sintaxe:

Código: Selecionar todos

Leto_FCopyFromSrv( cLocalFileName, sServerFileName[, nStepSize ] ) ==> lSuccess

O problema é que para gravar na pasta destino (local), precisa usar DirChange() para se posicionar na pasta onde quero gravar os arquivos que baixo do servidor. Isso não é problema, mas não é o que diz o manual.

O manual diz:

<cLocalFileName> can contain any redirector prefix known by Harbour

Só que não funciona. Se coloca qualquer redirecionador, não copia o arquivo. Exemplo:

Código: Selecionar todos

Func BackServ()  // Faz backup dos arquivos de Dados do Servidor nessa máquina

 Local x, aArqs, cFile
 
 If File( "FezBackupServ.Cfg" ) .And. Directory( "FezBackupServ.Cfg" )[1,3] = cDataHoje  // se já atualizou hoje...
  Return Nil                                                                             // volta daqui...
 EndIf
 
 aArqs := Leto_Directory( PathLeto + cDrvDbf + "*.*" )  // pega a lista de arquivos da pasta dados do servidor...

 DirMake( cDrvExe + "BackServ" )                       // se não existe a pasta BackServ, cria...
 //DirChange( cDrvExe + "BackServ" )                     // torna BackServ a pasta corrente (só funciona assim)
 
 For x=1 To Len( aArqs )

  cFile := aArqs[x,1]
  
  @ 2,2 Say "Copiando Arquivo => + cFile

  //If !Leto_FCopyFromSrv( cDrvExe + cFile, PathLeto + cDrvDbf + cFile )  // se coloca qualquer redirecionador, não copia o arquivo...
  If !Leto_FCopyFromSrv( cFile, PathLeto + cDrvDbf + cFile )  // passando para a pasta BackServ, e sem redirecionador dá certo...
   Hb_Alert( "Houve erro no Backup. Será feita nova tentativa mais tarde." )
   Return Nil
  EndIf
  
 Next
 
 //DirChange( ".." )     // retorna para a pasta anterior...

 Hb_MemoWrit( "FezBackupServ.Cfg", "Atualizou backup do servidor em: " + DToC( datac ) )  // atualiza arquivo de controle...
 
Return Nil

[asimoes]

Vi um exemplo aqui:

https://github.com/elchs/LetoDBf/blob/m ... t_file.prg

Mas se não está funcionando, coloca uma mensagem para o Rolf Elchs

[Jairo Maia]

Vi um exemplo aqui:

Valeu Alexandre. É muita coisa pra ver nesse código. Vou ver com calma e depois dou o retorno. Por enquanto Obrigado.