Contenido
Al escribir código en VBScript, un programador puede necesitar la confirmación de que existe un archivo antes de realizar una acción o llamar a una función. Esto se puede combinar accediendo a "Windows Script Host" junto con VBScript y haciendo uso de FileSystemObject. La mejor forma de aprender esta técnica de programación es seguir un ejemplo paso a paso. Es una buena práctica para un programador nuevo en VBScript.
Paso 1
Abra el Bloc de notas. Haga clic en el menú "Inicio" y escriba "Bloc de notas" en el cuadro de búsqueda. Seleccione Bloc de notas en los resultados de la 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". Se utilizará para demostrar el código VBScript.
Paso 3
Cree un nuevo documento en el Bloc de notas y guárdelo como: "C: Temp FileCheck.vbs". La inclusión de la extensión ".vbs" en el archivo de texto crea un archivo VBScript ejecutable de Windows.
Paso 4
Copie y coloque 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 If (fso.FileExists ("C: Temp test.txt")) Entonces' Alerta al usuario WScript.Echo ("¡El archivo existe!") WScript.Quit () Else 'Alerta al usuario WScript.Echo (" ¡El archivo no existe! ") End If
'Salir del script WScript.Quit ()
Paso 5
Guarde el archivo VBScript que creó y salga del programa.
Paso 6
Abra la carpeta que contiene el archivo VBScript y haga doble clic en "FileCheck.vbs". Debería aparecer un cuadro de mensaje confirmando: "¡El archivo existe!" Seleccione "Aceptar" para cerrar el cuadro de mensaje.
Paso 7
Cambie el nombre o elimine el archivo "C: Temp test.txt" creado en el paso 1, luego haga doble clic en el script "FileCheck.vbs" nuevamente. El archivo especificado ya no existe y verá un mensaje que dice: " ¡El archivo no existe! "(¡El archivo no existe!). La instrucción If-Then-Else en el código está verificando y notificando los resultados. Seleccione" OK "para cerrar el cuadro de mensaje.
