Copiando DBF do servidor para meu notebook

[Itamar M. Lins Jr.]

Ola!
Precisei copiar uns DBF´s de um cliente aqui para o notebook...
ADSL do cliente de 2mb tá copiando sem erros, mas demoooraaaa

Código: Selecionar todos

FUNCTION PegaDBF
LOCAL nX, nRet, nArqs, lRet := .T.

aArr := Leto_Directory( "*" ) ; nArqs := Len(aArr)
oBar := HProgressBar():NewBox( "Copiando... "+lTrim(Str(0,9))+" De "+lTrim(Str(nArqs,9))+" Registro(s)")
FOR nX := 1 TO nArqs
    IF ".DBF" $ Upper(aArr[nX][1]) .OR. ".FPT" $ Upper(aArr[nX][1])
       lRet := Leto_FCopyFromSrv( aArr[nX][1], aArr[nX][1] )
       hwg_ProcessMessage()
    ENDIF
    If !lRet 
       hwg_msgstop( "Falha copiando: " + aArr[nX][1] )
    EndIf
    oBar:Step("Copiando..."+lTrim(Str(nX,9))+" De "+lTrim(Str(nArqs,9))+" Registro(s)")
NEXT
oBar : Close()

RETURN .T.

Saudações,
Itamar M. Lins Jr.

[Nascimento]

eu tentei com o elch para ele fazer um leto_zip()
para vc fazer o backup no servidor e baixar pra o terminal ja zipado
porque ai viria um unico arquivo e acredito que o tempo seria bem menor
ele até fez o prg backup.prg mais de tão confuso que ficou não entendi ainda

o bom seria, criasse 1 zip no servidor e o baixasse, para o terminal

[Fernando queiroz]

EU fiz copiando e compactando os arquivos e depois colocando no DROPBOX

ele sozinho copia para minha maquina

XCOPY C:\SGCDATABASE\*.* C:\BACKUP\NOITE\LOJA\*.* /S /Y
C:\BACKUP\7-ZIP\7za a -r C:\Users\bened\Dropbox\03-BACKUP-AMADEU\BACKUP_%date:~6,4%-%date:~3,2%-%date:~0,2% C:\BACKUP\NOITE\LOJA\*.*