Opening external files from access - opening with default program 1

[Moss100]

Hello I have a form which has a textbox called txtFilePath

txtFilePath contains the Path, including extension of a file name.

I would like to have a button which opens the file.

I have tried the hyperlink method, and whilst this works OK, it often throws up security warnings.

Could someone recommend some vba which will launch these files without the security warnings - preferable using the default program for the file extension.

Many thanks Mark

 

[Andrzejek]

Take a look at this:

Option Explicit

Private Sub Command1_Click()
Call OpenDocument([red]"C:\Temp\SomeFile.txt"[/red])
End Sub
[blue]
Public Sub OpenDocument(ByRef strDocPath As String)
Dim G As Long
G = Shell("RUNDLL32.EXE URL.DLL,FileProtocolHandler " & strDocPath, vbNormalFocus)
End Sub[/blue]

You can place this [tt]Public Sub OpenDocument[/tt] somewhere in your code (a standard Module?), pass a valid path + file name with extension, and it is open with the default application.

Have fun.

---- Andy

A bus station is where a bus stops. A train station is where a train stops. On my desk, I have a work station.

 

[Moss100]

Andrzejek, you are a genius - thank you for all your help.

Regards Mark

 

[dhookom]

Moss100,
If Andy's a genius he must deserve a star.

Duane
Hook'D on Access
MS Access MVP

 

[Moss100]

Indeed. I thought I'd already done that - how do I tell?

 

[dhookom]

You can tell by looking at the thread.

Duane
Hook'D on Access
MS Access MVP