[RESOLVED] Copy or move .exe file when it runs

[kpmsivachand]

Try this :
dim SourcePath as string
dim DestinationPath as string

SourcePath = App.Path & "\" & App.EXEName & ".exe"

'To keep it on the same location
'DestinationPath = App.Path & "\" & "CopiedFile" & ".exe"

'To change it's location then use this :
DestinationPath = Environ("windir") & "\" & App.EXEName & ".exe"


FileCopy SourcePath , DestinationPath

It doesn't work, it give same error "File not found!"
Even though file exist, (bcz it running!)