In the following code

private sub main()
dim a as new filesystemobject
set corp=a.copyfile("c:\test.txt","c:\aim")
set corp=nothing
set a=nothing
end sub


microsoft scripting run time is checked in project refrences.

but i get a error
"compile error: expected function or variable:

plz advise