20 Dez 2018 08:49
Leto_FCopyFromSrv( cLocalFileName, sServerFileName[, nStepSize ] ) ==> lSuccess
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
20 Dez 2018 15:30
20 Dez 2018 17:31
Valeu Alexandre. É muita coisa pra ver nesse código. Vou ver com calma e depois dou o retorno. Por enquanto Obrigado.asimoes escreveu:Vi um exemplo aqui: