Code:
Drivespec="D:\abc\psychology.doc"
DestFolderPath= "E:\abc\ijk"
MoveAFile Drivespec,DestFolderPath
sub MoveAFile(Drivespec,DestFolderPath)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile Drivespec,DestFolderPath
Set fso=nothing
End SubFor the below script i am gettign an error as object not found

