Køre et ikommando fra VBA

mener du shell-funktionen??

Shell "dinprogramsti.exe"

Dim WshShell
  Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run "C:\Program.exe"
  Set WshShell = Nothing

De virker ikke, Jeg kan godt med de kommandoer starte en exe eller com fil, men i dette tilfælde så er det en fil der normal når man dobbelt klikker på den så starter den et program med den.
Som for exemepel om du dobbelt klicker på en .doc fil så åbner den word, eller ex htm fil så åbner den Internet explorer.
i dette tilfælde så om man dobbelt klicker på en r2w fil så åbner den Reflection, et telnet program.

Og når jeg bruger shell så får jeg "invalid procedure call"
Og med sjh's version så stopper den på "Set WshShell = WScript.CreateObj..." med "object required"

you need to run shellexec

http://www.mvps.org/access/api/api0018.htm

shellexed will open a file in the program which is associated with that file type for example .doc in Word .mdb in Access

Hvad med at kalde det program der skal åben din fil, og give filen som parameter

  shell "c:\win\notepad.exe Mintext.txt"

eller i dit tilfælde

  shell "c:\programmer\Reflection.exe Minfil.r2w"

eldaria>cany help if you dont comment!

Sorry for my Absentism,

Terry, I'm having trouble reaching the site you mention. I get server not found.

Martin, Da jeg ikke altid ved hvor brugeren har instaleret programmet så skal det være ved at kalde data eller config filen.

if your having trouble with this site then you have a problem somewhere.

I'll see if I can put some code together for you. Back in a while :o)

Yes I know, I have been having some trouble with my ISP, certain addresses are not working.
They have been working on this since end of January...

This code opens a Word document

Place this in a module so it is accessible from all forms.

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_HIDE = 0
Public Const SW_SHOW = 5


Then you can place this code anywhere you want.
NOTE: Me.txtWordDoc is a field on a form. I have a button named cmdOpenDoc and this is the on click event.

Private Sub cmdOpenDoc_Click()
Dim stAppName As String
Dim result As Integer

    On Error GoTo Err_cmdOpenDoc_Click

    result = ShellExecute(0, "Open", Me.txtWordDoc, "", "", SW_SHOW)

    If result < 32 Then
        MsgBox "Couldn't open file ..."
    End If
   
Exit_cmdOpenDoc_Click:
    Exit Sub

Err_cmdOpenDoc_Click:
    MsgBox Err.Description
    Resume Exit_cmdOpenDoc_Click
   
End Sub

Yes this is the one I was looking for....
I have seen something simmilair before, and I can recognize this one...

Brw.  Terry, Are you also active on Tek-Tips?

Thanks..
Brian.

whats Tek-Tips?

Ok, I just thought I recognized your name from there.
Tek-Tips is also a forum for Technical Q&A but in pure English.

www.tek-tips.com

No its not me, but thanks for the link it may come in usefull :o)

No Prob.. :-)