Introducción a VB Script: una guía para principiantes: parte 2: trabajar con archivos de (13 / 13 paso)

Paso 13: El código

Este es el código escrito sin todas las sugerencias y observaciones

_

Opción explícita
Dim objFiSyOb, objSysFold, objShell, objFile, objTextFile
Dim strDir, strFile, strFileName
strDir = "C:\Catcher"
strFile = "\Shutdown_catcher.txt"
strFileName = "Shutdown_catcher.txt"
Const forReading = 1, forWriting = 2, ForAppending = 8

Set objFiSyOb = CreateObject("Scripting.FileSystemObject")

Si objFiSyOb.FolderExists(strDir) entonces
Set objSysFold = objFiSyOb.GetFolder(strDir)
Otra cosa
Set objSysFold = objFiSyOb.CreateFolder(strDir)
Si objFiSyOb.FileExists (strDir y strFile) entonces
Set objSysFold = objFiSyOb.GetFolder(strDir)
Otra cosa
Set objFile = objFiSyOb.CreateTextFile (strDir y strFile)
Wscript.Echo ("Hemos creado una carpeta llamada" & strDir & "y un archivo llamado" & strFilename & "y lo colocó en el" & strDir & strFile & "directorio.")
End If
End If

Si objFiSyOb.FileExists (strDir y strFile) entonces
Set objSysFold = objFiSyOb.GetFolder(strDir)
Otra cosa
Set objFile = objFiSyOb.CreateTextFile (strDir y strFile)
Wscript.Echo ("Hemos creado un archivo llamado" & strFileName & "en el" & strDir & "carpeta de archivo.")
End If

Set objFile = nada
Set objSysFold = nada
Set objTextFile = objFiSyOb.OpenTextFile (strDir y strFile, ForAppending, True)

objTextFile.WriteLine ("ordenador cerrada el" & fecha & "en" & hora)
objTextFile.Close
Wscript.Echo ("ordenador cerrada el" & fecha & "en" & hora)

Si err.number = vbEmpty entonces
Set objShell = CreateObject("WScript.Shell")
objShell.run ("Explorer" & "" & strDir & "\shutdown_catcher.txt")
Else WScript.echo "VBScript Error:" & err.number
End If

WScript.Quit

Artículos Relacionados

Cambio de freno de automóviles! Una guía para principiantes!

Cambio de freno de automóviles! Una guía para principiantes!

Esta es la manera más fácil de cambiar frenos!Hace poco fui a conseguir una inspección de seguridad de mi coche y descubrí que mis pastillas apenas habían pasado con número mínimo. Se informó que los cambio por otros nuevos, el único problema era, qu
Una manera fresca para adornar sus trapos viejos con Bleach

Una manera fresca para adornar sus trapos viejos con Bleach

¿Tienes una vieja camisa o un par de jeans que necesitan un poco de ayuda? Bastante la manera fácil con una buena pluma de bleach viejo! No hay que mezclar colorante en polvo o hacer un gran lío en la cocina. Todo lo que necesitas es un lápiz blanque
Pintar tu uñas - una guía para principiantes por un principiante

Pintar tu uñas - una guía para principiantes por un principiante

recientemente he sido inspirado por uñas maravillosas de autores como TheDailyNail y AmeliaLovesToDance. pero... ¿Cómo podía crear estos patrones maravillosos cuando aun no puedo pintar mis uñas? Aquí le damos algunos consejos sobre la pintura de uña
35mm: una guía para principiantes

35mm: una guía para principiantes

* descargo de responsabilidad: este artículo está dirigido a SLR cámaras no Telémetros aunque pueden todavía ser útil (puede que desee a google qué tipo es tu cámara) *Primero de todo, Felicidades por ser dueño de lo estoy suponiendo que la primera (
¿Arduino: una manera más fácil de trabajar con siete exhibiciones de segmento

¿Arduino: una manera más fácil de trabajar con siete exhibiciones de segmento

tener programación código de apuro para el siete segmento de muestra? Bien hicieron los 4511 para facilitar las cosas un montón. Qué el 4511 es toma un valor entrada binaria de 4 dígitos (unos y ceros) y la convierte en un valor decimal en un display
Cómo escribir una canción para principiantes muy

Cómo escribir una canción para principiantes muy

Hey todo el mundo, he decidido hacer un Instructables que realmente no he visto mucho de, y eso es componer Instructables! Voy a estar caminando por escribir una canción muy básicaPaso 1: El truco inadvertido Mayoría de la gente quiere escribir una c
Una guía para la impresión 3d con un RepRap

Una guía para la impresión 3d con un RepRap

hace algún tiempo he estado tratando conseguir instrumentos musicales funcionales de un RepRap. Mucho tiempo fue pasar a conocer los matices del proceso. En algún momento, me sentía frustrado como pude encontrar guías que describen el corte o la part
¿Corte por láser para principiantes absolutos: cortado con láser personalizado colgante usando la magia de INTERNET (o: una introducción muy básica para Adobe Illustrator)

¿Corte por láser para principiantes absolutos: cortado con láser personalizado colgante usando la magia de INTERNET (o: una introducción muy básica para Adobe Illustrator)

has querido alguna vez uno de los láser corte collares de lujo, pero no posee un cortador láser o saber cómo utilizar software de diseño?  Este es tu dia de suerte, mi amigo.  Voy a enseñarte todo lo que necesitas saber para que esto suceda y no más.
Introducción a MEL Scripting en Maya: fractales 3D

Introducción a MEL Scripting en Maya: fractales 3D

Maya es una herramienta muy poderosa para la creación de animaciones 3D y motion graphics. Puede modelo, textura, luz, animar y renderizar en el mismo entorno. Interfaz visual de los mayas es potente y profundo. Permite a las personas crear animacion
Introducción en LSL scripting en Second Life

Introducción en LSL scripting en Second Life

Hola y Bienvenidos a "Antes de empezar en LSL scripting". LSL está parado para "Linden Scripting Language" y se utiliza para la escritura de los objetos que encontrar y hacer en Second Life.QUE ESTE TUTORIAL ES PARA:Este tutorial está
Salvar el mundo una gota a la vez, parte 3: Redes sus sensores

Salvar el mundo una gota a la vez, parte 3: Redes sus sensores

Para este proyecto he trabajado con Will Buchanan - partes 1 y 2 - crear un sistema de domótica que pistas agua uso en partidos en casa (fregadero, ducha, WC etc.). Utilizando colas visuales (incluyendo color de la luz, duración e intensidad) en cada
Salvar el mundo una gota a la vez, parte 1: Control de flujo de agua - fontanería gratis - mediante un piezoeléctrico y redes de malla de Pinoccio

Salvar el mundo una gota a la vez, parte 1: Control de flujo de agua - fontanería gratis - mediante un piezoeléctrico y redes de malla de Pinoccio

El agua es barato, pero California es en una de las peores sequías siempre ahora. Seamos realistas: no podemos solucionar la sequía. Sin embargo, algunos residentes de CA activamente están quedando sin agua potable. A nivel municipal es difícil promu
Frambuesa PI-introducción para principiantes

Frambuesa PI-introducción para principiantes

Recientemente tenemos heared sobre Raspberry PI y quiere saber lo que es y aquí está mi instructable para quienes son nuevos en frambuesa pi.Permite así comenzar... De pequeños...El Raspberry Pi es un bajo costo, tarjeta de crédito tamaño de equipo q
Fijar una Thinkpad T400 térmica cuestiones una vez y para todo

Fijar una Thinkpad T400 térmica cuestiones una vez y para todo

Thinkpads son grandes máquinas. Confiable, reparable, rápido y los mejores teclados que encontrarás en un ordenador portátil.Pero hasta hace poco, han tenido una falla terriblemente fatal: sobrecaliente si hacer algo un poco exigentes en ellos. Mi má