Moving text files

[JPinto]

Hi,

I need to move a text file from a directory to another.

I have the following code to do that:

Sub Manip_Files()
Dim fso As New FileSystemObject, fil1

Set fil1 = fso.GetFile("c:\testfile.txt")
fil1.Move ("c:\tmp\testfile.txt")
End Sub

It gives the error:
compile error: user-defined type not defined.

Does anybody know why?

How can I do it?

[Joacim Andersson]

To use the FileSystemObject you have to set a reference to the Microsoft Scripting Runtime.
To set it pick Reference on the Project menu.

[filburt1]

IMHO it is also incredibly complex to use the FSO for something so simple. This seems faster, doesn't require another depedency, and is less code:

FileCopy "c:\testfile.txt", "c:\tmp\testfile.txt"
Kill "c:\testfile.txt"

[Joacim Andersson]

Well you can actually use the Name statement as well.

Name "c:\testfile.txt" As "c:\tmp\testfile.txt"

Best regards

[JPinto]

Thanks a lot.

With the reference it works.

[DaoK]

It gives the error:
compile error: user-defined type not defined.



Have you add the Microsoft Scripting Runtime ?

[Joacim Andersson]

Originally posted by DaoK
It gives the error:
compile error: user-defined type not defined.



Have you add the Microsoft Scripting Runtime ?

why don't you read the earlier replies first?

[DaoK]

Why are you frustrated becasue I have read all but not this one SORRY OH MY GOD this morning you have a feeling problem or waht ?

[Megatron]

Please do not over react. I believe he meant for you to read his first post in this thread.