Faça o download de arquivos grandes via VBscript

2

Alguém teve sucesso com o download de arquivos grandes via VBScript? Meu script está abaixo e está cometendo erro ao baixar um arquivo com mais de 1 GB. Arquivos pequenos funciona sem problemas. Preciso tentar um método diferente? A mensagem de erro que isso me dá está abaixo. Agradecemos antecipadamente por qualquer sugestão!

strFileURL = "http://10.0.0.0/File.zip"
strHDLocation = "C:\File.zip"


Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")

objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.setTimeouts 1000 * 60 * 60, 1000 * 60 * 60, 1000 * 60 * 60, 1000 * 60 * 60
objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then
  Set objADOStream = CreateObject("ADODB.Stream")
  objADOStream.Open
  objADOStream.Type = 1 'adTypeBinary

  objADOStream.Write objXMLHTTP.ResponseBody
  objADOStream.Position = 0    'Set the stream position to the start

  Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation

  objADOStream.SaveToFile strHDLocation
  objADOStream.Close
  Set objADOStream = Nothing
End if

Set objXMLHTTP = Nothing
Set objFSO = Nothing

A mensagem de erro que recebo é:

Error: Not enough storage is available to complete this operation.
Code: 8007000E
Source: msxml3.dll
    
por ChriSxStyles 19.06.2011 / 03:44

1 resposta

0

"Erro: Não há armazenamento suficiente disponível para concluir esta operação."

Você verificou se realmente tem espaço em disco suficiente para o arquivo de download?

    
por 19.06.2011 / 03:51

Tags