Search for a shortcut .exe file and displays the it's file path

Coolfusion

Hi there,

I want the programe to search for the shortcut exe file on the desktop and display the file path of the file. To obtain the file path manually, right-click the shortcut exe file and go to properties and the path is under the row called Target.

Currently the code i wrote cannot display the path. Can you tell me wat is the problem. I m currently using vb.net 2003.

Thanks in advance

Expand|Select|Wrap|Line Numbers

 
Private Sub cmdGet_Path_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdGet_Path.Click

        Dim file_name As String

        file_name = Me.txtShortcutVerif_DesktopName.Text
 
        GetShortcutPathInfo(file_name)

    End Sub
 
    Private Sub GetShortcutPathInfo(ByVal file_name)

        Dim oShell As Shell32.Shell

        Dim oFolder As Shell32.Folder
 
        oShell = New Shell32.Shell
 
        oFolder = oShell.NameSpace(ssfDESKTOP)
 
        'Check if the oFolder is empty and if not empty then 

        If Not oFolder Is Nothing Then

            'Declare the folder items

            Dim oFolderItem As Shell32.FolderItem

            Dim i As Integer

            Dim bFound As Boolean

            For i = 1 To oFolder.Items.Count
 
                If String.Compare(file_name, oFolder.Items.Item(i).Name, True) <> 0 Then

                    'If oFolder.Items.Item(i).Path = file_path Then

                    oFolderItem = oFolder.Items.Item(i)
 
                    Dim dir As Shell32.Folder = oShell.NameSpace(oFolderItem.Path)

                    Dim itm As Shell32.FolderItem = dir.Items().Item(i)

                    Try

                        Me.txtShortcutVerif_GetName.Text = itm.Name

                    Catch ex As NullReferenceException
 
                    End Try
 
                    Debug.WriteLine(oFolder.Items.Item(i).Name)
 
                    bFound = True

                    Exit For

                Else

                    If bFound = False Then

                        MsgBox("Cannot find the file", MsgBoxStyle.Information)

                    End If

                End If
 
            Next
 
        End If

        oFolder = Nothing

        oShell = Nothing

    End Sub

Plater

Have you tried setting a breakpoint and stepping though the code?
I would guess that it does not find a match for the shortcut name you request

Coolfusion

Quote:

Originally Posted by Plater

Have you tried setting a breakpoint and stepping though the code?
I would guess that it does not find a match for the shortcut name you request

Yes, i did use the breakpoint n has stepped thourgh it.

This is what is display when i put this in the Command Window:

?ofolder.Items.Item(i)
{System.__ComObject}
[System.__ComObject]: {System.__ComObject}
Application: {System.__ComObject}
GetFolder: {System.__ComObject}
GetLink: <error: an exception of type: {System.InvalidCastException} occurred>
IsBrowsable: False
IsFileSystem: False
IsFolder: True
IsLink: False
ModifyDate: #12/30/1899#
Name: "網路上的芳鄰"
Parent: {System.__ComObject}
Path: "::{208D2C60-3AEA-1069-A2D7-08002B30309D}"
Size: 0
Type: "系統資料夾"

Can you tell me what the problem?

Plater

Well I am confused as to why you use COM objects to sift through a directory when there are nice .NET object that will do it for you?
I would use the .NET functions to locate the .lnk file you want and only THEN use the COM object to parse it for your desired location.

Coolfusion

Quote:

Originally Posted by Plater

Well I am confused as to why you use COM objects to sift through a directory when there are nice .NET object that will do it for you?
I would use the .NET functions to locate the .lnk file you want and only THEN use the COM object to parse it for your desired location.

Actually, i m very new to VB.net. So still not really sure if i m doing the right thing. ok. let me try ur way.

Thanks lots

Search for a shortcut .exe file and displays the it's file path

re: Search for a shortcut .exe file and displays the it's file path

re: Search for a shortcut .exe file and displays the it's file path

re: Search for a shortcut .exe file and displays the it's file path

re: Search for a shortcut .exe file and displays the it's file path

Similar .NET Framework bytes

/bytes/development

/bytes/it

/bytes/about