Open a text file in native application (Access 2003)

Topic

New Reply

I’m trying to open a text file (C:Results.txt) in Notepad using VBA, but I’m not sure what commands to use. An example or explaination on how to do this would be appreciated.

Thanks,
Drew

Reply | Quote

Replies

You can either use Application.FollowHyperlink:

Application.FollowHyperlink “C:Results.txt”

or use the ShellExecute API function:

Put the following code at the top of a module:

Public Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Public Const SW_SHOWMAXIMIZED As Long = 3
Public Const SW_SHOWNORMAL As Long = 1

To open the text file, use code like this:

Private Sub cmdOpenText_Click()
Dim lngResult As Long

lngResult = ShellExecute(hWndAccessApp, “Open”, _
“C:Results.txt”, 0&, 0&, SW_SHOWMAXIMIZED)
If lngResult <= 32 Then
MsgBox "Could not open the file.", vbExclamation
End If
End Sub

Use SW_SHOWNORMAL instead of SW_SHOWMAXIMIZED if you don't want the text file to be maximized.

Reply | Quote

Perfect!
Thank you

Reply | Quote