Intro till VB Script: en Nybörjarguide: del 2: arbeta med filer (13 / 13 steg)
Steg 13: Koden
_
Option Explicit
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
Ange objFiSyOb = CreateObjectScripting.FileSystemObject("")
Om objFiSyOb.FolderExists(strDir) sedan
Ange objSysFold = objFiSyOb.GetFolder(strDir)
Annat
Ange objSysFold = objFiSyOb.CreateFolder(strDir)
Om objFiSyOb.FileExists (strDir & strFile) sedan
Ange objSysFold = objFiSyOb.GetFolder(strDir)
Annat
Ange objFile = objFiSyOb.CreateTextFile (strDir & strFile)
Wscript.Echo ("Vi har skapat en mapp som heter" & strDir & "och en fil med namnet" & strFilename & "och placerade den i den" & strDir & strFile & "katalogen.")
Slut om
Slut om
Om objFiSyOb.FileExists (strDir & strFile) sedan
Ange objSysFold = objFiSyOb.GetFolder(strDir)
Annat
Ange objFile = objFiSyOb.CreateTextFile (strDir & strFile)
Wscript.Echo ("Vi har skapat en fil med namnet" & strFileName & "i den" & strDir & "filmapp.")
Slut om
Ange objFile = ingenting
Ange objSysFold = ingenting
Ange objTextFile = objFiSyOb.OpenTextFile (strDir & strFile, ForAppending, sant)
objTextFile.WriteLine ("datorn stänga ned på" & datum & "at" & tid)
objTextFile.Close
Wscript.Echo ("datorn stänga ned på" & datum & "at" & tid)
Om err.number = vbEmpty sedan
Ange objShell = CreateObject("WScript.Shell")
objShell.run ("Explorer" & "" & strDir & "\shutdown_catcher.txt")
Annat WScript.echo "VBScript fel:" & err.number
Slut om
WScript.Quit