Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")