Paso 5: Escribir el guión parte 3: Si entonces declaraciones como corrección de errores.
Básicamente un if entonces declaración dice que si algo pasa hacer esto si no. Por declaraciones de if/then de anidación puede crear una cadena de cosas que tienen que suceder. Si a y b y c no sucede entonces este otra cosa que hacen.
ejemplo:
queremos que el archivo que queremos escribir en esté allí
Si encontramos lo que queremos hacer nada
Si no encontramos lo que queremos crear
o
queremos comprobar si la carpeta existe y si no crean
y luego Compruebe si el archivo existe una vez que encontramos la carpeta
y si no crean
el primero es un ejemplo de un if entonces declaración el segundo es una anidada si.
Cómo lo hacemos:
Hay cuatro partes en un if entonces declaración
Si/entonces
otra cosa
terminar si
se trata básicamente de si esto es verdad entonces hacer esto si no entonces terminar la intervención
un if correctamente codificado entonces la Declaración sería:
Si algo = algo entonces
Qué necesita hacer
Otra cosa
hacer otra cosa
End If
Puede utilizar cualquier argumento como es cierto seguirá entonces la parte y omitir la parte más pero si es false saltará entonces e ir a otro
Entonces cuando terminamos el if declaración ponemos "end if", pero si hemos anidado si declaraciones tenemos que acabar con cada if instrucción. Va a terminarles de niño a padre por lo que el primer "end if" finaliza el if declaración dentro de los padres, donde el segundo termina la original (padre) si declaración.
Para hacer un pop-up nos escribe
Wscript.Echo ("lo que queremos decir en el mensaje")
para agregar un valor de las variables en él lo ponemos afuera o entre comillas dobles usando el signo ampersand (&) como delimitador, por lo que el guión sabe que es una variable y no un texto.
Así:
Wscript.Echo ("Bla, bla, bla" y strDir & "bla, bla, bla" & strFilename & "bla, bla, bla".)
La salida podría ser un pop-up que dice
Bla bla bla C:\Catcher bla bla bla shutdown_catcher.txt bla, bla, bla.
Uso actual:
' si la carpeta C; \exist
Si objFiSyOb.FolderExists(strDir) entonces
' obtener la carpeta
Set objSysFold = objFiSyOb.GetFolder(strDir)
' de lo contrario
Otra cosa
' crear la carpeta c; \catcher
Set objSysFold = objFiSyOb.CreateFolder(strDir)
' y compruebe si existe el archivo y carpeta
Si objFiSyOb.FileExists (strDir y strFile) entonces
' si le c:\catcher carpeta
Set objSysFold = objFiSyOb.GetFolder(strDir)
' de lo contrario
Otra cosa
' crear documento de texto shutdown_catcher.txt
Set objFile = objFiSyOb.CreateTextFile (strDir y strFile)
' entonces surge un mensaje para decir que creó los dos
Wscript.Echo ("Hemos creado una carpeta llamada" & strDir & "y un archivo llamado" & strFilename & "y lo colocó en el" & strDir & strFile & "directorio.")
' if anidado final declaración
End If
' if original final declaración
End If
' ahora en la primera si declaración ya comprobado para carpeta y encontró que ahora comprobamos para archivo
Si objFiSyOb.FileExists (strDir y strFile) entonces
' si consigue encontrar carpeta
Set objSysFold = objFiSyOb.GetFolder(strDir)
' de lo contrario
Otra cosa
' crear el doc de texto
Set objFile = objFiSyOb.CreateTextFile (strDir y strFile)
' crear un popup diciendo que creó el documento de texto
Wscript.Echo ("Hemos creado un archivo llamado" & strFileName & "en el" & strDir & "carpeta de archivo.")
End If