Stap 13: De code
_
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
Set objTextFile = objFiSyOb.OpenTextFile (strDir & strFile, ForAppending, True)
objTextFile.WriteLine ("uw computer Shut down op" & datum & "at" & tijd)
objTextFile.Close
Wscript.Echo ("uw computer Shut down op" & datum & "at" & tijd)
Als err.number = vbEmpty then
Set objShell = CreateObject("WScript.Shell")
objShell.run ("Explorer" & "" & strDir & "\shutdown_catcher.txt")
Else WScript.echo "VBScript-fout:" & err.number
End If
WScript.Quit