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

Paso 13: El código

_

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