Download a file from the Internet

For Partners

TestComplete How To
	Web Utility Scripts
		Download a file from the Internet/support/viewarticle.aspx?aid=8999
		Get the page loading time/support/viewarticle.aspx?aid=9043
		Send an e-mail message/support/viewarticle.aspx?aid=9020
		Verify whether a web link is valid/support/viewarticle.aspx?aid=9000
	Third-party Controls
	MS Office
	SQL
	TestComplete Utility Scripts
	Network
	Windows Utility Scripts
	Miscellaneous

Updated: 7/19/2010 Applies To: TestComplete

Rating: No votes

Click to rate:

Full-Screen mode

Download a file from the Internet

The script below downloads a file from the Internet and saves it to the specified directory on your computer.

Sub Test

  Dim strFileURL, strHDLocation, objHTTP, objADOStream, objFSO

  ' Specify the names of the source and destination files

  strFileURL = "http://www.automatedqa.com/file to get"

  strHDLocation = "c:\temp\filename"

  ' Download the file

  Set objHTTP = Sys.OleObject("MSXML2.XMLHTTP")

  Call objHTTP.open("GET", strFileURL, False)

  Call objHTTP.send

  While ( objHTTP.readyState <> 4 )  And ( objHTTP.readyState <> "complete" )

    Call Delay(100)

  WEnd

  If (200 <> objHTTP.Status) Then

    Call Log.Error("The " & strFileURL & " file was not found." &_

                   " The returned status is " & objHTTP.Status)

    Exit Sub

  End If

  Set objADOStream = Sys.OleObject("ADODB.Stream")

  Call objADOStream.Open

  objADOStream.Type = 1 ' adTypeBinary

  Call objADOStream.Write(objHTTP.ResponseBody)

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

  Set objFSO = Sys.OleObject("Scripting.FileSystemObject")

  If (objFSO.FileExists(strHDLocation)) Then

    Call objFSO.DeleteFile(strHDLocation)

  End If

  Call objADOStream.SaveToFile(strHDLocation)

  Call objADOStream.Close

End Sub

function Test()

  // Specify the names of the source and destination files

  var strFileURL = "http://www.automatedqa.com/file to get";

  var strHDLocation = "c:\\temp\\filename";

  // Download the file

  var objHTTP = new ActiveXObject("MSXML2.XMLHTTP");

  objHTTP.open("GET", strFileURL, false);

  objHTTP.send();

  while((objHTTP.readyState != 4) && (objHTTP.readyState != 'complete')) {

    Delay(100);

  if (200 != objHTTP.Status) {

    Log.Error("The " + strFileURL + " file was not found." +

              " The returned status is " + objHTTP.Status);

    return;

  var objADOStream = new ActiveXObject("ADODB.Stream");

  objADOStream.Open();

  objADOStream.Type = 1; //adTypeBinary

  objADOStream.Write(objHTTP.ResponseBody);

  objADOStream.Position = 0;    //Set the stream position to the start

  var objFSO = new ActiveXObject("Scripting.FileSystemObject");

  if (objFSO.FileExists(strHDLocation)) objFSO.DeleteFile(strHDLocation)

  objADOStream.SaveToFile(strHDLocation);

  objADOStream.Close();