visual basic kopieren naar bureaublad

[mastermindzh]

ik ben bezig met een stukje software, maar nu wil ik graag een snelkoppeling uit een map naar het bureaublad kopieren dit gaat allemaal, maar alleen op mijn pc
zoals je kan zien heet mijn User mastermindzh... hoe krijg ik dit veranderd zodat hij bij elke pc naar het bureaublad gaat ik had al %currentuser% en %username% geprobeert
kan iemand mij helpen

bij voorbaat dank

hier de foto

hier de code

Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click
        Dim FileToCopy As String
        Dim NewCopy As String



        If MsgBox("Heb je vista?", vbYesNo) = vbYes Then
            FileToCopy = "bin\shortcuts\bin1.lnk"
            NewCopy = "C:\users\%username%\desktop\lol.lnk"
        Else
            FileToCopy = "bin\shortcuts\bin1.lnk"
            NewCopy = "C:\Documents and Settings\Users\mastermindzh\desktop"


        End If
    End Sub
End Class

*EDIT* ik heb wel met een batch het voor elkaar gekregen, die kan ik altijd met shell opstarten alleen had ik graag de functie in visual basic zelf

 

[Spiderman]

Hoi,

Ik denk zoiets.

        Dim Username As String = Environment.UserName
        Dim NewCopy As String
        NewCopy = "C:\users\" & Username & "\desktop\lol.lnk"

 

[mastermindzh]

Hoi,

Ik denk zoiets.

        Dim Username As String = Environment.UserName
        Dim NewCopy As String
        NewCopy = "C:\users\" & Username & "\desktop\lol.lnk"

nope sorry

 

[Spiderman]

Wat gaat er fout dan?

 

[mastermindzh]

Wat gaat er fout dan?

er gebeurt gewoon helemaal niks geen knipperen geen niks

 

[Spiderman]

Als ik het goed zie, dan heb ke de daadwerkelijke kopieercommando er niet bij staan.

Probeer onderstaande nog eens.

        Dim FileToCopy As String
        Dim NewCopy As String
        Dim Username As String = Environment.UserName

        If MsgBox("Heb je vista?", vbYesNo) = vbYes Then
            FileToCopy = "bin\shortcuts\bin1.lnk"
            NewCopy = "C:\users\" & Username & "\desktop\lol.lnk"
        Else
            FileToCopy = "bin\shortcuts\bin1.lnk"
            NewCopy = "C:\Documents and Settings\Users\" & Username & "\desktop"
        End If
        If IO.File.Exists(FileToCopy) Then
            IO.File.Copy(FileToCopy, NewCopy)
        Else
            MsgBox("Bestand: " & FileToCopy & " kan niet gevonden worden")
        End If

 

[mastermindzh]

Als ik het goed zie, dan heb ke de daadwerkelijke kopieercommando er niet bij staan.

Probeer onderstaande nog eens.

        Dim FileToCopy As String
        Dim NewCopy As String
        Dim Username As String = Environment.UserName

        If MsgBox("Heb je vista?", vbYesNo) = vbYes Then
            FileToCopy = "bin\shortcuts\bin1.lnk"
            NewCopy = "C:\users\" & Username & "\desktop\lol.lnk"
        Else
            FileToCopy = "bin\shortcuts\bin1.lnk"
            NewCopy = "C:\Documents and Settings\Users\" & Username & "\desktop"
        End If
        If IO.File.Exists(FileToCopy) Then
            IO.File.Copy(FileToCopy, NewCopy)
        Else
            MsgBox("Bestand: " & FileToCopy & " kan niet gevonden worden")
        End If

had ik al werkt ook niet vind het raar

maarja probleem opgelost met batches heb ze allemaal geconverteert naar .exe dus zit nu goed

bedankt!

 

[The Mighty Atom]

Jullie doen moeilijk, gebruik gewoon:

My.Computer.FileSystem.SpecialDirectories.Desktop

om de desktop directory te verkrijgen.

 

[mastermindzh]

My.Computer.FileSystem.SpecialDirectories.Desktop

bedankt kwam dan op msn grr

deze werkt!

*edit* werkt niet op XP