VBS , también conocido como " Visual Basic Script , " causó un susto en 2000 después de que el virus " Te Amo " infecta 15 millones de ordenadores y derribó servidores en todo el mundo . Cuando Microsoft creó VBS , utilizaron Visual Basic como modelo. VBS no es un virus, pero tiene la capacidad de acceder al sistema de archivos del usuario y otros recursos informáticos. Usted puede utilizar VBS para leer el contenido de un archivo mediante la introducción de unas pocas líneas de código. Instrucciones
1

Haga clic derecho en el escritorio y seleccionar "Nuevo". Seleccione "Archivo de texto " en la lista desplegable. Windows creará un nuevo archivo de texto y mostrar su icono en el escritorio
2

Agregue el siguiente código al documento : .

Dim objFSObject , strFile , strFileContents , strCurrentLine , arrLineCollection

CONST ForReading = 1

'Crear el sistema de archivos de objetos

Establecer objFSObject = CreateObject ( " Scripting.FileSystemObject " )

Las dos primeras líneas crean variables. La tercera línea crea un objeto de sistema de archivos
3

Añadir este código debajo del código en el paso 2 : .

StrFile = "C : \\ somefolder \\ archivo.txt "

Sustituir " C: \\ somefolder \\ somefile " con la ruta de acceso a un archivo de texto en su disco duro . Por ejemplo, para utilizar un archivo llamado " test.txt " ubicado en la carpeta " temp" en la unidad "C ", añada la siguiente línea :

strFile = "C : \\ temp \\ test.txt "
4

Añadir este código debajo del código en el paso 3 .

strFileContents = objFSObject.OpenTextFile ( strFile , ForReading ) ReadAll

arrLineCollection = split ( strFileContents , vbCrLf )

la primera línea lee el archivo y lo almacena en " strFileContents . " La segunda línea crea una colección (array ) y almacena cada línea del archivo como un elemento en el array. Por ejemplo , si el archivo de entrada tiene tres líneas , la matriz tendrá tres elementos
5

Añada el código siguiente al código del paso 4 : .

For Each strCurrentLine en arrLineCollection < br >

wScript.Echo " Corriente de línea =" & strCurrentLine

Siguiente

objFSObject.Close

Este código bucles de bloque a través de la matriz y muestra cada línea .
6

Haga clic en " archivo" y seleccione " Guardar como" para abrir la ventana " Guardar como" ventana.
7

Type " vbReadTest1.vbs " en el " Nombre de archivo" cuadro de texto y haga clic en " Guardar ". Bloc de notas creará un archivo VBS y guárdelo en el escritorio.
8

Busque el archivo en el escritorio y haga doble clic en él. El código VBS leerá el archivo de entrada y mostrar su contenido .