dim fso
dim fld
dim fil
 
set fso=createobject("scripting.filesystemobject")
 
set fld="d:\deinpfad\"
 
for each fil in fld.files
if fil.name="hostname*.xml" then
fil.delete
end if
 
set fil=nothing
set fld=nothing
set fso=nothing
next

EALA FREYA FRESENA