Åbne program?

Private 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
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Dim Scr_hDC As Long

Private Function Startdoc(DocName As String)
Scr_hDC = GetDesktopWindow()
Startdoc = ShellExecute(Scr_hDC, "Open", DocName, "", "C:\", 1)
End Function

''''''''''''''''''''''''''''''''''''''''''''

Private Sub mStartProgrammerInternet_Click()
Dim r As Long
r = Startdoc("C:\Programmer\Internet Explorer\IEXPLORE.EXE")
End Sub


'''
Det gode ved den kode er, at hvis du bruger "c:\mappe\fil.txt" (txt i stedet for exe), så åbnes filen "fil.txt" med det associerede program.

skal man kun indsætte den nederste?

Ej... Ik noget prøvede det lige med begge dele og så virkede det sq.. Du får lige pointsne

OK.. Her er et svar :)

Hmm.. Hvordan gør man det med pointsne?

Sådan der :)
Takker for points, og godt nytår :)

Mht til behandling af points/svar:
http://expfaq.1go.dk/?id=3#behandling_af_svar

Elligemåde, tak for svarene. Du ligner en de rhar rigtig godt styr på VB, gid det var mig..

Kender du nogle gode tutorials?

Ikke rigtigt :)
Det jeg har brug for, prøver jeg mig frem til.. hvis det ikke virker, bruge jeg nettet..
prøv: www.pscode.com www.vbcode.com