Quero Criar um caminho automático para o desk top.`Através de um Bat Como que eu faço?

 

Agradeço a todos desde já.

Voce poe colocar dentro do próprio programa assim:

Private Sub CriaAtalhoDesktop(pDescr As String, pFullPathPgm As String, Optional pAtalhoKey As String = "", Optional pAtalhoParams As String = "")
    Dim WshShell As Object, oShellLink As Object
    Dim strDesktop As String, strLink As String, WorkPath As String
    WorkPath = Left(pFullPathPgm, InStrRev(pFullPathPgm, ""))
    Set WshShell = CreateObject("WScript.Shell")
    strDesktop = WshShell.SpecialFolders("Desktop")
    strLink = strDesktop & "" & pDescr & ".lnk"
    Set oShellLink = WshShell.CreateShortcut(strLink)
    oShellLink.TargetPath = pFullPathPgm
    oShellLink.HotKey = pAtalhoKey
    oShellLink.Arguments = pAtalhoParams
    oShellLink.WorkingDirectory = WorkPath
    oShellLink.Description = pDescr
    oShellLink.Save
End Sub