Perguntas Baixar arquivo e executar

//

---

// Copia arquivos do FTP
//

---

Static Function CopiaFtp(cArqs)
Local cServidor
Local cServidor := 'ftp.dominio.com.br'
Local cLogin := 'usuario'
Local cSenha := 'senha'
Local cOrigem := 'caminho\no\ftp'
Local cDestino := '\caminho\no\servidor\'
Local lRet := .T.

FTPDisconnect()
If !FTPConnect( cServidor, ,cLogin, cSenha )
APMsgInfo( 'Falha na conexão!' )
lRet := .F.
Else
If FTPDirChange(cOrigem)
aArqs := FTPDIRECTORY( cArqs )
nArqsCopy := Len(aArqs)
If Len(aArqs) = 0
APMsgInfo( 'Nenhum pedido encontrado no site, verificar arquivos locais' )
lRet := .F.
Else
For n := 1 to Len(aArqs)
If !FTPDOWNLOAD(cDestino+aArqs[n][1], aArqs[n][1] )
APMsgInfo( 'Problemas ao copiar arquivo '+ aArqs[n][1] )
Else
If !FTPERASE( aArqs[n][1] )
APMsgInfo('Problemas ao apagar o arquivo ' + aArqs[n][1] )
EndIf
EndIf
Next
EndIf
EndIf
EndIf

Return lRet