Een script dat al meer dan een jaar goed werkt geeft sinds enkele weken problemen en ik krijg het niet werkend. Het gaat om een vbscript op een Windows 2003 std server dat elke nacht draait om oude backups op te ruimen. Ik heb even het gedeelte uit het script geknipt waar het mis gaat.
Dit is even een tijdelijk test scriptje. Ik weet zeker dat de directory d:\backup\remove2 bestaat. Het script ziet ook dat de directory bestaat en roept de DeleteFolder aan, maar daar stopt het script met een error:
Regel: 4
Teken: 2
Fout: Kan het pad niet vinden
Runtime fout Microsoft VBscript
Ik krijg dus nooit een msgbox. Ook niet dat de directory niet bestaat. Als ik overigens de DeleteFolder weghaal (commentaar) dan krijg ik de msgbox te zien met "Directory remove verwijderd.". Ik hoop dat iemand een idee heeft wat hier mis gaat.
code:
1
2
3
4
5
6
7
8
| removeDir = "D:\Backup\remove2"
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists (removeDir) Then
FSO.DeleteFolder (removeDir)
MsgBox "Directory remove verwijderd."
else
MsgBox "De directory remove bestaat niet!"
End if |
Dit is even een tijdelijk test scriptje. Ik weet zeker dat de directory d:\backup\remove2 bestaat. Het script ziet ook dat de directory bestaat en roept de DeleteFolder aan, maar daar stopt het script met een error:
Regel: 4
Teken: 2
Fout: Kan het pad niet vinden
Runtime fout Microsoft VBscript
Ik krijg dus nooit een msgbox. Ook niet dat de directory niet bestaat. Als ik overigens de DeleteFolder weghaal (commentaar) dan krijg ik de msgbox te zien met "Directory remove verwijderd.". Ik hoop dat iemand een idee heeft wat hier mis gaat.