WEB LISTING 1: AnimatedMove.vbs
Set objShellApp = CreateObject("Shell.Application")
objShellApp.NameSpace("C:\my scripts").MoveHere "C:\alistair"