vba.. gemme genvej til fil (pdf)

Sub shortcut()
    Dim wsShell As New WshShell
    Dim wsSCut As WshShortcut
    Dim strTargetPath As String
    Dim strFileName As String
    Dim strShortCutFolderPath As String
    Dim strPDFFolderPath As String
    Dim strShortCutFullName As String
   
    strFileName = {FILNAVN}
    strShortCutFolderPath = {STI TIL MAPPE MED GENVEJE}
    strShortCutFullName = strShortCutFolderPath & strFileName & ".lnk"
    strPDFFolderPath = {STI TIL MAPPE MED PDF-FIL}
    strTargetPath = strPDFFolderPath & strFileName & ".pdf"
   
    Set wsSCut = wsShell.CreateShortcut(strShortCutFullName)
    With wsSCut
        .TargetPath = strTargetPath
        .Save
    End With
   
    Set wsSCut = Nothing
    Set wsShell = Nothing
End Sub

tak for hurtigt svar

får dog en fejl "user-defined type not defined" der refererer til

Dim wsShell As New wshshell

nogen idé om hvorfor den ikke vil æde den?

Nå ja, det glemte jeg lige.. :-)
Du skal under Tools > References... sætte hak ved 'Windows Script Host Object Model' i listen og trykke OK.

super.. Nu ser det ud til at virke.