Inleiding tot de VB-Script: een beginnersgids: deel 2: werken met bestanden (7 / 13 stap)

Stap 7: Meer foutcorrectie

Het probleem is dat we krijgt toestemming fouten als we de referentie van het vorige object opgeslagen in de variabele niet vrijgeven. Dus willen wij in een klein fragment van code die set zegt de variabelen tot niets.

ziet er als volgt:
set objFile = niets
set objSysFold = niets

Dus voor degenen onder u volgende thuis langs uw code op dit punt moet (ik haalde de commentaar):

Optie expliciet
ObjFiSyOb, objSysFold, objShell, objFile, objTextFile Dim
Dim strFile, strDir, strFileName
strDir = "C:\Catcher"
strFile = "\Shutdown_catcher.txt"
strFileName = "Shutdown_catcher.txt"
Const forReading = 1, forWriting = 2, ForAppending = 8

Set objFiSyOb = CreateObject("Scripting.FileSystemObject")

Als objFiSyOb.FolderExists(strDir) dan
Set objSysFold = objFiSyOb.GetFolder(strDir)
Anders
Set objSysFold = objFiSyOb.CreateFolder(strDir)
Als objFiSyOb.FileExists (strDir & strFile) dan
Set objSysFold = objFiSyOb.GetFolder(strDir)
Anders
Set objFile = objFiSyOb.CreateTextFile (strDir & strFile)
Wscript.Echo ("Hebben we een map met de naam" & strDir & "en een bestand met de naam" & strFilename & "en geplaatst in de" & strDir & strFile & "map.")
End If
End If

Als objFiSyOb.FileExists (strDir & strFile) dan
Set objSysFold = objFiSyOb.GetFolder(strDir)
Anders
Set objFile = objFiSyOb.CreateTextFile (strDir & strFile)
Wscript.Echo ("Hebben we een bestand met de naam" & strFileName & "in de" & strDir & "bestandsmap.")
End If

set objFile = niets
set objSysFold = niets