Precisei copiar uns DBF´s de um cliente aqui para o notebook...
ADSL do cliente de 2mb :( tá copiando sem erros, mas demoooraaaa
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.