Het volgende script werkt sinds een tijdje niet meer en ik begrijp niet goed waarom niet. Tis simpel en zou het gewoon moeten doen, toch?
code:
1
2
3
4
5
6
| Set Fsys=CreateObject("Scripting.FileSystemObject")
set regedit=CreateObject("Wscript.Shell")
if fsys.fileExists("q:\wmsout\doc17\*.old") = true then
msgbox "Delete OLD-bestanden"
Fsys.Deletefile "q:\wmsout\doc17\*.old"
end if |