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

Paso 7: Corrección de errores más

El problema es que obtendrá errores de permiso si no liberar la referencia del objeto anterior almacenado en la variable. Por eso queremos poner en un pequeño fragmento de código que dice set las variables en nothing.

se ve así:
Set objFile = nada
Set objSysFold = nada

Así que para aquellos que siguiendo a lo largo en casa su código a este punto debe ser (saqué el comentario):

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