From FileGetShortcut - How to get the target path without exe.exe?

[asgarcymed 0]

Using:

$lnk_details = FileGetShortcut(@DesktopDir & "\Internet Explorer.lnk" )

MsgBox(0, "", "Target Path: " & $lnk_details[0])

The Message Box will display "C:\Program Files\Internet Explorer\IEXPLORER.EXE"

Next, I would like to put in clipboard the target path without exe.exe (in these example would be "C:\Program Files\Internet Explorer"). How to do this?

Thanks in advance.

Best regards.

[SmOke_N 201]

Look at _PathSplit() in the help file.

[asgarcymed 0]

Thank you for your tip! Here it is a good script:

#include <file.au3>
#include <array.au3>
$title = "Choose .lnk file"
$lnk_file = FileOpenDialog($title, @DesktopDir & "\", "Shortcuts (*.lnk)")
If @error Then
    MsgBox(0,"","No file was chosen")
EndIf
$lnk_file_details = FileGetShortcut ($lnk_file)
MsgBox(0, "", "Target Path: " & Chr(13) & $lnk_file_details[0])
MsgBox(0, "", "Description: " & Chr(13) & $lnk_file_details[3])
Dim $szDrive, $szDir, $szFName, $szExt
$target_path_array_dir = _PathSplit ($lnk_file_details[0], $szDrive, $szDir, $szFName, $szExt)
$target_path_array_dir_ok = StringTrimRight (_ArrayToString ($target_path_array_dir, "", 1, 2), 1)
ClipPut($target_path_array_dir_ok)

[smashly 11]

Hi, another way ...

$lnk_details = FileGetShortcut(@DesktopDir & "\Internet Explorer.lnk" )
MsgBox(0, "", "Target Path: " & StringLeft($lnk_details[0], StringInStr($lnk_details[0], "\", 0, -1) - 1))

Cheers

[enaiman 14]

or

$lnk_details = FileGetShortcut(@DesktopDir & "\Internet Explorer.lnk" )
MsgBox(0, "", "Target Path: " & StringTrimRight($lnk_details,4))

[smashly 11]

or

$lnk_details = FileGetShortcut(@DesktopDir & "\Internet Explorer.lnk" )
MsgBox(0, "", "Target Path: " & StringTrimRight($lnk_details,4))

That doesn't work for me

[BrettF 26]

He should have called it as an array...

$lnk_details = FileGetShortcut(@DesktopDir & "\Internet Explorer.lnk" )
MsgBox(0, "", "Target Path: " & StringTrimRight($lnk_details[0],4))

[smashly 11]

He should have called it as an array...

$lnk_details = FileGetShortcut(@DesktopDir & "\Internet Explorer.lnk" )
MsgBox(0, "", "Target Path: " & StringTrimRight($lnk_details[0],4))

Nope that doesn't trim the file name to leave just the path.. it only trims the file ext from the path

so

$lnk_details = FileGetShortcut(@DesktopDir & "\Internet Explorer.lnk" )
MsgBox(0, "", "Target Path: " & StringLeft($lnk_details[0], StringInStr($lnk_details[0], "\", 0, -1) - 1))

seems more appropriate unless your using _PathSplit() which works great Edited October 9, 2007 by smashly

[BrettF 26]

Nope that doesn't trim the file name to leave just the path.. it only trims the file ext from the path

so

$lnk_details = FileGetShortcut(@DesktopDir & "\Internet Explorer.lnk" )
MsgBox(0, "", "Target Path: " & StringLeft($lnk_details[0], StringInStr($lnk_details[0], "\", 0, -1) - 1))

seems more appropriate unless your using _PathSplit() which works great

I didn't read the OP's question, I just fixed enaimans' code.

[enaiman 14]

That doesn't work for me

It doesn't work for me either because when I open my Desktop folder I don't see a shortcut for IE (and IT IS there) - I only tried to offer an alternative to OP.

Nope that doesn't trim the file name to leave just the path.. it only trims the file ext from the path

OP said:

Next, I would like to put in clipboard the target path without exe.exe (in these example would be "C:\Program Files\Internet Explorer")

@Bert

Thanks I haven't looked at FileGetShortcut description (assumed the OP got it right)

Edited October 10, 2007 by enaiman

[asgarcymed 0]

ClipPut(StringLeft($lnk_details[0], StringInStr($lnk_details[0], "\", 0, -1) - 1))oÝ÷ Øb±¨(¡Ö¥µêçjدzÚºÚ"µÍ[H ÌÍÜÞ]K  ÌÍÜÞ    ÌÍÜÞ[YK ÌÍÜÞ^ÌÍÝÙ]Ü]Ø^WÙHÔ]Ü]
    ÌÍÛ×Ù[WÙ]Z[ÖÌK  ÌÍÜÞ]K  ÌÍÜÞ    ÌÍÜÞ[YK ÌÍÜÞ^
BÌÍÝÙ]Ü]Ø^WÙÛÚÈHÝ[Õ[TYÚ
Ð^UÔÝ[È
    ÌÍÝÙ]Ü]Ø^WÙ  ][ÝÉ][ÝËKKJBÛ]
    ÌÍÝÙ]Ü]Ø^WÙÛÚÊ

More easy, less code, less includes...

Thank you!

[smashly 11]

Your Welcome