Having trouble with FileSystemObject

[Edneeis]

You either have to add a reference to the Scripting RunTime thing or declare it like so

Set fs=CreateObject("Scripting.FileSystemObject")