condicao if

[m@r<3|o]

Pessoal , esse código preciso verificar se existe ou não existe só que me da erros que argumentos

Código:

LOCAL loHTTP as MSXML2.XMLHTTP
loHTTP = CREATEOBJECT("MSXML2.XMLHTTP")
loHTTP.open("GET","http://gestoracademia.webng.com/atualizacao.zip",.F.)
WAIT WINDOW "Baixando arquivo..." TIMEOUT 2
loHTTP.send()
WAIT CLEAR
STRTOFILE(loHTTP.responseBody, "\atualizacao.zip")
loHTTP = null

preciso fazer algo assim só que nao estou conseguindo a verificacao correta

Código:

LOCAL loHTTP as MSXML2.XMLHTTP
loHTTP = CREATEOBJECT("MSXML2.XMLHTTP")
loHTTP.open("GET","http://gestoracademia.webng.com/atualizacao.zip",.F.)
WAIT WINDOW "Baixando arquivo..." TIMEOUT 2

if file ('"GET","http://gestoracademia.webng.com/atualizacao.zip"') &&&& ERRO
loHTTP.send()
WAIT CLEAR
STRTOFILE(loHTTP.responseBody, "\atualizacao.zip")
loHTTP = null
else
  Messagebox("Não Consta Arquivos Disponiveis para Atualizacao")
endif

[Marcos Guedes]

Você está querendo que a função FILE() verifique se existe um arquivo via HTTP????
Assim não dá!


Veja em Funções interessantes que temos algo para baixar arquivos via HTTP.
Certamente dará uma luz para vc prosseguir com esta rotina.

[m@r<3|o]

Marcos esta resolvido ,
adequei um codigo diferente ,
que me atende as necessidades por DLL

Código:

CLEAR
?baixar_arquivo_http("http://[Você precisa estar registrado e conectado para ver este link.] "c:\lixo\teste.zip")
*!*
FUNCTION baixar_arquivo_http AS logical
  LPARAMETERS urlArquivoHTTP as String, caminhoArquivoLocal as String
 
  DECLARE INTEGER URLDownloadToFile IN urlmon.DLL;
      INTEGER pCaller, STRING szURL,;
      STRING szFileName, INTEGER dwReserved,;
      INTEGER lpfnCB

  LOCAL cremotefile, clocalfile, nresult
  cremotefile = m.urlArquivoHTTP
  clocalfile = m.caminhoArquivoLocal

  WAIT WINDOW NOWAIT "Downloading file..."
      nresult = urldownloadtofile(0, cremotefile, clocalfile, 0,0)
  WAIT CLEAR

  RETURN (nresult = 0)
ENDFUNC

Obrigado
Abs
Marcelo Fazan

[Marcos Guedes]

Boa, Marcelo!