Creating and using Symlinks in VBA?

[arnelgp]

Chatgpt has some answer:

' from Chatgpt
Sub CreateSymlink(ByVal Target As String, ByVal Link As String)
    Dim cmd As String
    ' Ensure paths are wrapped in quotes
    ' cmd = "cmd /c mklink /D """ & Link & """ """ & Target & """"
    cmd = "cmd /c mklink """ & Link & """ """ & Target & """"
    ' Create the symbolic link
    Shell cmd, vbHide   'vbNormalFocus
End Sub

example (will create test.lnk of Document folder)

Private Sub test()
    Dim path As String
    path = Environ("userprofile") & "\documents\"
    Call CreateSymlink(path & "fileNameHere.xlsx", path & "test.lnk")
End Sub