Moving text files

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?

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

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:

VB Code:

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

Well you can actually use the Name statement as well.

VB Code:

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

Best regards

Thanks a lot.

With the reference it works.

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



Have you add the Microsoft Scripting Runtime ?

Quote:

---

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?

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 ?

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