Results 1 to 3 of 3
  1. #1
    2 Star Lounger
    Join Date
    May 2002
    Location
    Quincy, Illinois
    Posts
    138
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Open a text file in native application (Access 2003)

    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

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Open a text file in native application (Access 2003)

    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.

  3. #3
    2 Star Lounger
    Join Date
    May 2002
    Location
    Quincy, Illinois
    Posts
    138
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Open a text file in native application (Access 2003)

    Perfect!
    Thank you

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •