Cómo usar VBScript para guardar un archivo

Al igual que otros lenguajes de scripting, VBScript contiene funciones para manejar la entrada y salida de archivos. Como lenguaje de script de Microsoft, VBScript tiene acceso a los objetos de Windows que manejan las conexiones de Internet y el almacenamiento de archivos. Si su empresa usa Windows predominantemente, saber cómo usar VBScript para automatizar las funciones básicas de lectura y escritura de archivos puede resultar una habilidad útil. Para automatizar el guardado de archivos de Internet, puede usar el objeto de transmisión ADODB para canalizar los datos en un archivo local en la computadora. Esto escribirá el archivo y lo guardará automáticamente.

1.

Cree variables para sus ubicaciones de carga y descarga:

Dim url = "//www.domain.com/file.zip" Dim download = "D:\file.zip" 

2.

Descarga el archivo desde la web:

Establecer objXMLHTTP = CreateObject ("MSXML2.XMLHTTP")

 objXMLHTTP.open "GET", url, false objXMLHTTP.send() 

3.

Cree un flujo de datos para el objeto de descarga y establezca su posición de lectura al inicio del archivo descargado:

Establecer secuencia = CreateObject ("ADODB.Stream") secuencia. Abrir secuencia. Tipo = 1 'adTypeBinary

stream.Write objXMLHTTP.ResponseBody stream.Position = 0

4.

Cree un objeto del sistema para manejar la información del archivo, lea la secuencia en el archivo y cierre la secuencia de datos:

Set system_file = Createobject ("Scripting.FileSystemObject") Si system_file.Fileexists (descarga) Entonces objFSO.DeleteFile descarga Set system_file = Nothing

stream.SaveToFile descargar stream.Close Establecer stream = Nothing End if

Entradas Populares