Shell in VBA

[joltremari]

I use this code to open a txt file in access:

Private Sub cmdViewFile_Click()
Dim retval As Variant
Dim strpath As String
strpath = "c:\logfile.txt"
retval = Shell("C:\winnt\system32\notepad.exe" & " """ & strpath & """", vbNormalFocus)
End Sub

I will be giving some co-workers access to this db and not everyone has NT so the path of Notepad will be different.

What I have done is created a field for FilePath that holds the path of the associated file. I would like to code the button to use that field as the full path and when clicked use the systems default viewer to open it.

I use this in my vb app;

ShellExecute Me.hwnd, vbNullString, File1.path & "\" & sName, vbNullString, "c:\", SW_SHOWNORMAL

But I am new to VBA!
P.S. I have searched this forum and the access forums I use but something similar to what I already have is all I've gotten.


I hope I was clear and I hope someone can help!?!

JO

[Lord_Rat]

I would personally just send notepad.exe with your app.

[jim mcnamara]

I'm confused - ShellExecuteEx works in VBA, and it knows what executable to open - the associated one for the file type.

What is it that I'm missing here?

[jim mcnamara]

Or are your trying to find the system folder?

Find the system fiolder

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    Dim sSave As String, Ret As Long
    'Create a buffer
    sSave = Space(255)
    'Get the system directory
    Ret = GetSystemDirectory(sSave, 255)
    'Remove all unnecessary chr$(0)'s
    sSave = Left$(sSave, Ret)
    'Show the windows directory
    MsgBox "Windows System directory: " + sSave
End Sub

[joltremari]

The error I get wth ShellExecuteEx is:

"The file does not have a program associated with it for performing this action. Create an association in the Folder Options control panel."

I've done that, I've even tried other file types in various directories and still nothing.

Oh well....

JO