Udpege fil til genvej

Jeg er igang med at lave en bat fil som opretter en genvej nu vil jeg gerne have det sådan at jeg kan udpege en fil
Altså en input box med "filebrowser"

jeg har ikke adgang til andet end at skrive den i notesblok

Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "\Skriv navnet på genvejen her.lnk")
link.Description = "Skriv din beskrivelse her"
link.IconLocation = "C:\be\send.exe"
link.TargetPath = "C:\be\send.exe"
link.WindowStyle = 2
link.WorkingDirectory = "C:\be\"
link.Save
Set Shell = Nothing