Alguém usa a função Leto_FCopyFromSrv()?
Sintaxe:
Leto_FCopyFromSrv( cLocalFileName, sServerFileName[, nStepSize ] ) ==> lSuccessO 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:
Só que não funciona. Se coloca qualquer redirecionador, não copia o arquivo. Exemplo:<cLocalFileName> can contain any redirector prefix known by Harbour
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