Étape 7: Correction d’erreurs plus
Le problème est que nous obtiendrons des erreurs d’autorisation si nous ne libérons pas la référence de l’objet précédent stocké dans la variable. Donc, nous voulons mettre dans un petit extrait de code qui indique l’ensemble des variables à rien.
ressemble à ceci :
Set objFile = nothing
Set objSysFold = nothing
Pour ceux d'entre vous suivant à la maison votre code vers ce point devrait donc être (j’ai pris le commentaire) :
Option Explicit
Dim objFiSyOb, objSysFold, objShell, objFile objTextFile
Dim strDir, strFile, strFileName
strDir = « C:\Catcher »
strFile = « \Shutdown_catcher.txt »
strFileName As String = « Shutdown_catcher.txt »
Const forReading = 1, forWriting = 2, ForAppending = 8
Set objFiSyOb = CreateObject("Scripting.FileSystemObject")
Si objFiSyOb.FolderExists(strDir) alors
Set objSysFold = objFiSyOb.GetFolder(strDir)
D’autre
Set objSysFold = objFiSyOb.CreateFolder(strDir)
Si objFiSyOb.FileExists (strDir & strFile) puis
Set objSysFold = objFiSyOb.GetFolder(strDir)
D’autre
Set objFile = objFiSyOb.CreateTextFile (strDir & strFile)
Wscript.Echo (« Nous avons créé un dossier nommé » & strDir & "et un fichier nommé" & strFilename & "et l’a placé dans le" & strDir & strFile & « répertoire ».)
End If
End If
Si objFiSyOb.FileExists (strDir & strFile) puis
Set objSysFold = objFiSyOb.GetFolder(strDir)
D’autre
Set objFile = objFiSyOb.CreateTextFile (strDir & strFile)
Wscript.Echo (« Nous avons créé un fichier nommé » & strFileName & "dans le" & strDir & « dossier de fichier ».)
End If
Set objFile = nothing
Set objSysFold = nothing