title: Disable error in vbs
body: <p>i use this code for download a link , but <strong>if objXMLHTTP.Status not 200</strong> then script show error that can't download or not found link &amp;...<br>
  How can add command that if objXMLHTTP.Status not 200 , script don't show any error?  </p>
  
  <pre><code>function download(sFileURL, sLocation)
  
  'create xmlhttp object
  Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  
  'get the remote file
  objXMLHTTP.open "GET", sFileURL, false
  
  'send the request
  objXMLHTTP.send()
  
  'wait until the data has downloaded successfully
  do until objXMLHTTP.Status = 200 :  wcript.sleep(1000) :  loop
  
  'if the data has downloaded sucessfully
  If objXMLHTTP.Status = 200 Then
  
          'create binary stream object
      Set objADOStream = CreateObject("ADODB.Stream")
      objADOStream.Open
  
          'adTypeBinary
      objADOStream.Type = 1
      objADOStream.Write objXMLHTTP.ResponseBody
  
          'Set the stream position to the start
      objADOStream.Position = 0    
  
          'create file system object to allow the script to check for an existing file
          Set objFSO = Createobject("Scripting.FileSystemObject")
  
          'check if the file exists, if it exists then delete it
      If objFSO.Fileexists(sLocation) Then objFSO.DeleteFile sLocation
  
          'destroy file system object
      Set objFSO = Nothing
  
          'save the ado stream to a file
      objADOStream.SaveToFile sLocation
  
          'close the ado stream
      objADOStream.Close
  
      'destroy the ado stream object
      Set objADOStream = Nothing
  
  'end object downloaded successfully
  End if
  
  'destroy xml http object
  Set objXMLHTTP = Nothing
  </code></pre>
  
  <p>End function</p>
  
  <p>download "http://remote-location-of-file", "C:\name-of-file-and-extension"</p>