Shell (Forkert sti = fejl og luk ned)

try using shellExec instead this returns an error

trying...

den kender ikke ShellExec i\':

Dim koer As String
koer = InputBox(\"Enter Location To a Program It_ MUST Be 100% correct before the program can run_ it\", \"Kør\")
Shellexec koer, vbNormalFocus

undescores er forkert sat i sprgsm, ikke i vb

Public Declare Sub Sleep Lib \"kernel32\" (ByVal dwMilliseconds As Long)
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


Dim result As Integer
result = ShellExecute(0, \"Open\", \"C:\\Path\\notepad.exe\", \"\", \"\", SW_SHOW)

er der ikke en mere simpel kode, (kan i det her i hovedet???!!!!) jeg er newbie i VB

place the declaration in a module so that all forms have access to it. Copy and paste it EXACTLY as it is then forget it (you dont need to worry about it)!

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 in a form you can use the following, change Path to the full path to the program you are opening.

Dim result As Integer
result = ShellExecute(0, \"Open\", \"C:\\Path\\notepad.exe\", \"\", \"\", SW_SHOW)

    If result < 32 Then
        MsgBox \"Ikke fundet ...\", vbExclamation
    end if

REF: (kan i det her i hovedet???!!!!) No, we just know where to cut/paste from!

TchaChing!
Works.. Thankz...
how do you rember this Shi*!???
points awarded

k :)

thanks :o)

Private Sub Command1_Click()
On Error Resume Next

  Shell \"noteLad.exe\"

End Sub

eller

Private Sub Command1_Click()
On Error GoTo ErrorHandler

  Shell \"fdsfdsfdsfdsfsdf\", vbNormalFocus

Exit Sub
ErrorHandler:
MsgBox \"Error \" & Err.Number & vbCrLf & \"Description: \" & Err.Description, , \"Error\"
End Sub

hi sjh!

But shellexec can more than shell can. It opens the specific file, for example a .Doc file in the program which is associated with that file type, in this case Word!

thanks both of you... :)
i like the kewl module...
(im a nooB)