Need Call Shell to Open Selected File Using Default Program

[BASSPU03]

Private Sub FilePath_Click()
    Rem Me![AutoNumber]
    Dim stAppName As String
    Dim stlink As String
        stlink = Me![FilePath]
        stAppName = "C:\Program Files\Internet Explorer\IEXPLORE.EXE H:\Application\Cables\" + stlink
        Call Shell(stAppName, 1)
End Sub

After using the Common Dialog API to store a file name in a field "FilePath," I use the code above to click on FilePath to open the file associated with the file path. The stAppName above previously had a reference to Adobe Acrobat PDF, but some of my files are .htm files so I switched it to Internet Explorer (as shown above).

Problem: Not all of my files will be .htm extensions. Some may be .jpg, .bmp, .doc.... How can I force each file to open using its default program? I've tried deleting "C:\Program Files\Internet Explorer\IEXPLORE.EXE" and leaving the rest, but it doesn't work. The Call Shell code is clearly looking for an application to run.

Thanks in advance.

[Rabbit]

Use FollowHyperlink instead of call shell.

[BASSPU03]

Use FollowHyperlink instead of call shell.

Again, thanks for the help, Rabbit. This is the code I used ultimately:

Private Sub FilePath_Click()
    Rem Me![AutoNumber]
    Dim stlink As String
        stlink = Me![FilePath]
        FollowHyperlink stlink, , true
End Sub

I have a couple related problems that I've posted in their separate threads. I've searched on-line and tried changing the VB (unwittingly--my knowledge of VB is next to zero) to no avail. Those related problems are here:

Display File Title, Link Using File Path
http://www.thescripts.com/forum/show...94#post2984894

Follow Hyperlink, Then Set Focus to Linked App
http://www.thescripts.com/forum/show...12#post2984912

For anyone interested and/or knowledgeable, any additional help would be great.

[ADezii]

Private Sub FilePath_Click()
    Rem Me![AutoNumber]
    Dim stAppName As String
    Dim stlink As String
        stlink = Me![FilePath]
        stAppName = "C:\Program Files\Internet Explorer\IEXPLORE.EXE H:\Application\Cables\" + stlink
        Call Shell(stAppName, 1)
End Sub

After using the Common Dialog API to store a file name in a field "FilePath," I use the code above to click on FilePath to open the file associated with the file path. The stAppName above previously had a reference to Adobe Acrobat PDF, but some of my files are .htm files so I switched it to Internet Explorer (as shown above).

Problem: Not all of my files will be .htm extensions. Some may be .jpg, .bmp, .doc.... How can I force each file to open using its default program? I've tried deleting "C:\Program Files\Internet Explorer\IEXPLORE.EXE" and leaving the rest, but it doesn't work. The Call Shell code is clearly looking for an application to run.

Thanks in advance.

You can use the ShellExecute() API Function to Open any File in its server Application and make it the Active App. If you are interested, let me know.