Dim QuellPfad As String = IO.Path.Combine( _
          My.Application.Info.DirectoryPath, My.Application.Info.AssemblyName & _
          ".exe")
        Dim ZielPfad As String = IO.Path.Combine(Environment.GetFolderPath( _
        Environment.SpecialFolder.Startup), My.Application.Info.AssemblyName & _
        ".exe")
        IO.File.Copy(QuellPfad, ZielPfad, True)

        Dim QuellPfad As String = IO.Path.Combine( _
          My.Application.Info.DirectoryPath, My.Application.Info.AssemblyName & _
          ".exe")
        Dim ZielPfad As String = IO.Path.Combine(Environment.GetFolderPath( _
        Environment.SpecialFolder.Startup), My.Application.Info.AssemblyName & _
        ".exe")
        If Not IO.Directory.Exists(IO.Path.GetDirectoryName(ZielPfad)) Then
            IO.Directory.CreateDirectory(IO.Path.GetDirectoryName(ZielPfad))
        End If
        IO.File.Copy(QuellPfad, ZielPfad, True)

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co