I fould the following script on the net and it works just fine. What I don't understand is why I can not get to be called as a function from within a Sub. Also I'm curious as to why the word Selfdestruct appears after the End Sub and without it the code does not work. Thanks for any clarification.
Set fs_obj = CreateObject("Scripting.FileSystemObject")
Set fs_obj = Nothing