Etape 13 : Le code
_
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
Set objTextFile = objFiSyOb.OpenTextFile (strDir & strFile, ForAppending, True)
objTextFile.WriteLine (« votre ordinateur s’éteint sur » & date & « à » & time)
objTextFile.Close
Wscript.Echo (« votre ordinateur s’éteint sur » & date & « à » & time)
Si err.number = vbEmpty then
Définissez objShell = CreateObject("WScript.Shell")
objShell.run (« Explorer » & "" & strDir & « \shutdown_catcher.txt »)
Else WScript.echo "VBScript erreur:" & err.number
End If
WScript.Quit