filesystemobject

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

Get rid of all that code and use this:

vb.net Code:

My.Computer.FileSystem.CopyFile("c:\test.txt","c:\aim\test.txt")

i have to code in visual basic 6.0 and not in vb.net

then this is not the right section to post those kind of threads.

Quote:

---

Originally Posted by pradeep_pvnm

i have to code in visual basic 6.0 and not in vb.net

---

Yeah, reading the names and descriptions of the forums on the front page before posting is always a good idea. I've asked the mods to move this thread to the proper forum.

Thread moved from 'VB.Net' (VB2002 and later) forum to 'VB6 and Earlier' forum

Quote:

---

Originally Posted by jmcilhinney

I've asked the mods to move this thread to the proper forum.

---

Thanks, as always. :thumb:

CopyFiile is a Sub, not a function. Os it doesnt return anything. SO you cant assign the return value to corp (its not declared too).
Try Like This

Code:

---

Dim a As New FileSystemObject
    a.CopyFile "c:\test.txt", "c:\aim"
    Set a = Nothing

---

:wave:

Thanks a lot for the replies and apoligies for posting in the wrong forum

by the way i found out the error myself

the error was in the path, the destination has to be c:\aim\ and not c:\aim

thanks again!!!

now a new doubt!

Dim a As New FileSystemObject
a.movefile "c:\aim\test.txt", "c:\aim\test1.txt"
Set a = Nothing
when i am trying to rename the file
i get permission denied error.

first i thought it has to do something with write permissions on the folder.
but i am manually able to edit the files and delete the files in the folder.
moreover i am able to write to a file using vb also but not able to rename or delete it

let me know your thoughts

I don't think FSO can move an in-use file. Could that be it?

Is there a particular reason you are using fso? I think the native VB6 functions might be less of a hassle:

vb Code:

FileCopy "c:\test.txt", "c:\aim\test.txt"
Name "c:\aim\test.txt" As "c:\aim\New.txt"

FileCopy can rename the file as it copies, and Name can move the file to a new folder instead of just renaming it.

Thanks a ton ppl
the reason for the error was that the file was open and the filesystem object cannot delete a file in use
hence i included a .close satatement and it worked!!!

Thanks again