please help

I am using
FileCopy "sourcepath","destination"
is there a way to set the sourcepath
to go to my app regardless of where it
is downloaded to?

[Copy]
'copy or save a file to a different directory
'for this to work your file try.txt must be in
'the same folder as your application

Private Sub Command1_Click()
Dim AppPath$

If Right(App.Path, 1) <> "\" Then
AppPath = App.Path & "\"
Else
AppPath = App.Path
End If

Dim SourcePath As String, DestPath As String
SourcePath = AppPath & "try.txt"
DestPath = "c:\download\myNewFile.txt"

FileCopy SourcePath, DestPath

End Sub
[/code]