[RESOLVED] Who ever was wanting this

[Nightwalker83]

Hi,

Here is that code you wanted to copy your application to a different directory.

Option Explicit
 
Private Sub Form_Load()
If Dir$("c:\" & App.EXEName) = "" Then
MkDir ("c:\" & App.EXEName)
FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\" & App.EXEName & "\" & App.EXEName & ".exe"
End If
End Sub

Nightwalker