.vbs geeft foutmelding na 2x opstarten

Status
Niet open voor verdere reacties.

frankie59

Gebruiker
Lid geworden
25 sep 2008
Berichten
154
Ik heb een probleem met mijn VBScript, het is namelijk zo dat als het script na 182 dagen wordt uitgevoerd het een msgbox moet weergeven en daarna een aantal scripts moet verwijderen. Nu is de bedoeling dat de msgbox bij elke nieuwe opstart wordt weergegeven, maar nu wordt het commando voor het verwijderen van de andere scripts ook geladen. Hierdoor krijg ik een foutmelding aangezien de scripts al zijn verwijderd. Is er een manier dit te vermijden of te voorkomen?Bekijk bijlage verval.txtBekijk bijlage ICTstart.txt
 
Probeer het eens zo:
Code:
[COLOR="#008000"]'Lees het bestand[/COLOR]
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\temp\vervaldatum.dat")
strLine = objFile.ReadLine
objFile.Close

[COLOR="#008000"]'geef bericht weer[/COLOR]
MsgBox ("Bericht1")
MsgBox ("Bericht2")

Set objShell = Wscript.CreateObject("WScript.Shell")
If CLng(Date) - strLine >= 0 Then
    [COLOR="#008000"]'verwijder programmas[/COLOR]
    objShell.Run "C:\temp\verval.vbs"
Else
    objShell.Run "C:\temp1\ICT.vbs"
End If
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan