Intro till VB Script: en Nybörjarguide: del 2: arbeta med filer (7 / 13 steg)
Steg 7: Mer felkorrigering
Problemet är vi får tillåtelse fel om vi inte släppa en hänvisning till föregående objekt lagras i variabeln. Så vill vi sätta i en liten kodsnutt som säger uppsättning variabler till ingenting.
ser ut så här:
Ange objFile = ingenting
Ange objSysFold = ingenting
Så för er efter hemma din kod till denna punkt ska vara (jag tog kommentaren ut):
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