how to save a file when using shortcuts to browse to the folder? 1

[Johnomill]

I have a program which allows the user to save data to a location. My save-as-dialog shows 'real' folders but also shortcuts (.lnk). I use the file scripting object to check if the selected folder exists. When i select a shortcut (.lnk), fso.folderExists returns False. Is there a way to save a file using the shortcut OR is there way to determine what the pointing directory of the shortcut is??

best regards,

John

 

[Johnomill]

Yes!

this one did the job...

Private Function ExeFromLnk(ByVal LnkFileName As String) As String
Dim strTarget As String
Dim strShortFileName As String
Dim lnkShortcut As Object
Dim wshShell As Object
strShortFileName = String(255, " &quot & Chr(0)
Call GetShortPathName(LnkFileName, strShortFileName, Len(strShortFileName))
MsgBox LnkFileName & vbLf & strShortFileName
Set wshShell = CreateObject("WScript.Shell&quot
Set lnkShortcut = wshShell.CreateShortcut(strShortFileName)
With lnkShortcut
strTarget = .TargetPath
End With
Set lnkShortcut = Nothing
Set wshShell = Nothing
ExeFromLnk = strTarget
End Function