Get execuatable file name from a given file name

 

Private Declare Function FindExecutableA Lib "shell32.dll" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long

Function GetExecutable(strFile As String) As String
    Dim strPath As String
    Dim intLen As Integer
    strPath = String(255, 0)
    intLen = FindExecutableA(strFile, "\", strPath)
    If intLen > 32 Then
        GetExecutable = Left(strPath, intLen)
     Else
        GetExecutable = ""
     End If
End Function

Sub GetFileName()
    Dim fname As String
    fname = Application.GetOpenFilename
    Debug.Print GetExecutable(fname)
End Sub

Related examples in the same category

1.	Clipping and Unclipping the Cursor
2.	The FindWindow() function finds the first top-level window in the window list that satisfies the specified arguments.
3.	Check Whether an Excel File Is Open on a Network
4.	Custom About Dialog
5.	Disable the X for Closing a Userform
6.	Check mouse button
7.	Returns the Windows directory
8.	Get screen width and height
9.	Get window's rectangle
10.	Find window by class name
11.	Show Excel Window Size
12.	Get color depth
13.	Get DC and release it
14.	Get user name
15.	Get the computer name
16.	Freeze a window
17.	Change the Excel icon

Get execuatable file name from a given file name : Windows Resources « Windows API « VBA / Excel / Access / Word

Related examples in the same category