Hallo allemaal,
Op een engels forum heb ik een code gevonden om een snelkoppeling te maken op het bureaublad van een bestand wat in een andere map staat (.pdf)
Ik heb zelf geprobeerd de code te wijzigen zodat de snelkoppeling wordt gemaakt in de map documenten, maar dat lukt niet helaas.
Ik hoop dat jullie me kunnen helpen.
De code die ik gebruik om een snelkoppeling te plaatsen op het bureaublad staat hieronder.
(Ik werk met excel 2003)
Alvast bedankt!
Op een engels forum heb ik een code gevonden om een snelkoppeling te maken op het bureaublad van een bestand wat in een andere map staat (.pdf)
Ik heb zelf geprobeerd de code te wijzigen zodat de snelkoppeling wordt gemaakt in de map documenten, maar dat lukt niet helaas.
Ik hoop dat jullie me kunnen helpen.
De code die ik gebruik om een snelkoppeling te plaatsen op het bureaublad staat hieronder.
Code:
Dim oWsh As Object
Dim oShortcut As Object
Dim sPathDesktop As String
Dim sShortcut As String
Dim sPathFile As String
If CheckBox1.Value = True Then
On Error GoTo Proc_Err1
sPathFile = "m:\Meldings formulier\PDFfileDATA\" + TextBox1.text + ".pdf"
Set oWsh = CreateObject("WScript.Shell")
sPathDesktop = oWsh.SpecialFolders("Desktop")
sShortcut = sPathDesktop & "\My Shortcut Name.lnk"
Set oShortcut = oWsh.CreateShortcut(sShortcut)
With oShortcut
.TargetPath = sPathFile
.Description = "Description of my icon"
.RelativePath = "c:\temp"
.WorkingDirectory = "c:\"
.IconLocation = "F:\Code11\test.ico"
.Save
End With
Proc_Exit1:
On Error Resume Next
Set oShortcut = Nothing
Set oWsh = Nothing
Exit Sub
Proc_Err1:
MsgBox Err.Description, , _
"ERROR " & Err.Number _
& " CreateShortcut "
Resume Proc_Exit1
Resume(Ik werk met excel 2003)
Alvast bedankt!
Laatst bewerkt:
