Shell

vbs?

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

And this in a form for example.
If the .vbs is associated with a program then it will get opened by that program

Dim result As Integer
    stAppName = \"Your.vbs\"
    stAppPath = \"C:\\\"
   
    result = ShellExecute(0, \"Open\", stAppName, \"\", stAppPath, SW_SHOW)

    If result < 32 Then
        MsgBox \"Couldn\'t open file ...\"
    End If

ja, okay.....Men hvis nu jeg har flere vinduer åbne med forskellige vbs...og jeg så fra menu linien vil eksekvere den fil der pt er aktiv?

If I were you I would have a button on each Window an dputthe code in the buttons on click event

mht til stAppName og stAppPath....De skulle jo være lig den form jeg har åben...kan du hjælpe med hvordan jeg får den sat ind?

If you place a function in a module you can call this from your form.

Function OpenVBS( thePath as String, theFile as String) as Boolean

Dim result As Integer
   
    result = ShellExecute(0, \"Open\", theFile, \"\", thePath, SW_SHOW)

    OpenVBS = True
    If result < 32 Then
        MsgBox \"Couldn\'t open file ...\"
        OpenVBS = False
       
    End If

End function

Then you call this from any of the forms as you would any other function

hmmmm ja, men mit problem ligger i at menulinien, hvor jeg vil kalde funktionen ikke ligger i den form, hvor min RichTextBox er. Jeg har to forme, nemlig
*frmMain, hvor alle funktioner ligger og

*frmDocument, som egentlig bare indholder RTF

Hvordan kalder jeg funktionen i frmMain, når det det faktisk foregår i frmDocument?

PFT
/Stipe

stripe>I dont have knowledge of how your program is \"put together\" so its hard to give a precise answer as to how the answer to your original question should be implemeneted in your program.

If you place the funcionin  amodule it can be called from any of your forms.

håber dette kan hjælpe lidt....frmMain er \"skallen\" omkring hele programmet, hvor alle funktioner ligger i menulinier og buttons. Min mening er så at jeg vil oprette en button, der eksekvererer .vbs filen, der er åbnet i frmDocument. Det var her jeg tænkte på om man kunne bruge noget med \"ActiveForm\" til at få fat i koden til at køre wscript?

stipe>does the answer I gave you at 10:41 work?

ja, det gør den...... :-)

men jeg vil jo ikke indtaste navnet på .vbs filen nogensinde....så på en måde skal jeg ha\' trukket navnet ud på den aktive form

But when you say active form when you press the button on your frmMain the frmdocument is NOT the active form or ?

nej, i frmDocument kan være mange forskellige åbne, akkurat lige som i Words,når du har flere .doc filer åbne og så foreksempel trykker på \"fed Tekst\"....så ændrer du kun ved det dokument der er \"activeForm\"

..............ActiveForm.rtfText

stipe>sorry but I dont know much about what your trying to do so I dont think I can help more with this question.

Terry>Okay....tak for din hjælp alligevel :-)