Public Function CopyMe(ByVal DestPath As String) As Boolean
  Dim filename As String
  Dim appPath As String
  Dim source As String
  Dim dest As String
 
  filename = System.Reflection.Assembly.GetEntryAssembly().GetName().Name & _
    ".exe"
  appPath = Application.StartupPath
 
  source = System.IO.Path.Combine(appPath, filename)
  dest = System.IO.Path.Combine(DestPath, filename)
  Try
    IO.File.Copy(source, dest, True)
    Return True
  Catch ex As Exception
    Return False
  End Try
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de