Copying Files

Hi,
I want my program to copy itself to a particular directory whenever its first run, how do i do this?

Code:

---

If Dir(targetdir & App.EXEName & ".exe") = "" Then
    FileCopy App.Path & "\" & App.EXEName & ".exe", targetdir
End If

---

Where targetdir is the directory you want to copy it to.