Cómo verificar si un archivo existe usando VBScript

Al escribir código VBScript, es posible que un programador deba confirmar que existe un archivo antes de realizar una acción o invocar una función. Esto se puede lograr accediendo a Windows Script Host con VBScript y haciendo uso de FileSystemObject. La mejor manera de aprender esta técnica de programación es siguiendo un ejemplo paso a paso. Esta es una buena práctica para un programador principiante de VBScript.

Paso 1

Abra el Bloc de notas. Haz clic en el menú "Inicio" de Windows y escribe "bloc de notas" en el cuadro de búsqueda. Selecciona Bloc de notas en los resultados de búsqueda.

Paso 2

Cree un nuevo archivo en el Bloc de notas. Escriba algunas letras al azar en el archivo y guárdelo como "C:\Temp\test.txt". Este archivo se usará para demostrar el código VBScript.

Paso 3

Cree otro documento nuevo en el Bloc de notas y guarde este archivo como "C:\Temp\FileCheck.vbs". Agregar una extensión ".vbs" a un archivo de texto crea un archivo VBScript ejecutable en una computadora con Windows.

Paso 4

Copie y pegue el siguiente código en su documento de Bloc de notas:

Opción explícita

'Establecer Dimensión DIM fso

'Establecer conjunto de objetos fso =CreateObject("Scripting.FileSystemObject")

'Crear condición si (fso.FileExists("C:\Temp\test.txt")) Entonces 'Alerta al usuario WScript.Echo("¡El archivo existe!") WScript.Quit() Else 'Alerta al usuario WScript.Echo("Archivo no existe!") Terminar si

'Salir del guión WScript.Quit()

Paso 5

Guarde el archivo VBScript que acaba de crear y salga del Bloc de notas.

Paso 6

Busque la carpeta que contiene su archivo VBScript y haga doble clic en "FileCheck.vbs". Debería aparecer un cuadro de mensaje que confirme:"¡El archivo existe!" Seleccione "Aceptar" para cerrar el cuadro de mensaje.

Paso 7

Cambie el nombre o elimine el archivo "C:\Temp\test.txt" que creó en el Paso 1; luego, haga doble clic en el script "FileCheck.vbs" nuevamente. Esta vez, el archivo especificado no existe y verá un mensaje que dice "¡El archivo no existe!" La declaración If-Then-Else en su código VBScript realiza la verificación y le alerta sobre los resultados. Seleccione "Aceptar" para cerrar el cuadro de mensaje.

Advertencia

Cuando trabaje con archivos VBSscript, al hacer doble clic en estos archivos se iniciará el código VBScript. Para editar un archivo con una extensión .vbs, haga clic con el botón derecho en el archivo y seleccione "Editar" en el menú contextual.