Start -> Run "streng" med vb...

Selvfølgelig er det det. Det kan f.eks. gøres vha. ShellExecute.

Læg denne linje kode i toppen af din Form:

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

Derefter kan du benytte følgende til at eksekvere filer, internet-adresser osv.:

Call ShellExecute(Me.hwnd, vbNullString, "c:\testfil.lnk", vbNullString, vbNullString, vbMaximizedFocus)

Hvorfor ikke bare bruge

rc = Shell("c:\testfil.lnk",vbNormalFocus)

Hej magik
Jeg kender godt den pågældende kommando men jeg kan ikke få den til at virke med filtypen lnk. Den returnere en long = 2. Siger det dig noget?

Hej arnvig
Jeg er ikke sikker på at Shell virke da den vist nok kræver at jeg specificere hvilket program  og så hvilken fil der skal åbnes!
Under alle omstændigheder for jeg err.number = 53 eller 5?

Det betyder, at filen du prøver at åbne, ikke eksisterer.

.LNK er en windows genvej.
Måske skal du bare finde hvad genvejen peger på og eksekvere det

Hej Jer begge
Jeg kan eksikvere min genvejs fil fra; Start/Kør uden problemmer når jeg skriver,

c:\testfil.lnk

Har måske en løsning, vent lige

Nope, den gik ikke, sorry

Måske er der et API som kan disikere eller eksekvere et .LNK

Jaeh Jeg har søgt men ikke rigtig fundet noget der kan bruges!

Jeg synes ikke rigtigt at jeres svar har hjulpet mig så jeg lukker spørgsmålet (tror jeg nok)

Shell("Explorer.exe", "c:\testfil.lnk"), vbNormalFocus

JRL0469: synd at du ikke havde mere tålmodighed

Tubber: Godt forsøg, men det virker ikke

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

Const SW_SHOWNORMAL As Long = 1


Sub OpenAnyFile(filePath As String)
  ShellExecute Me.hwnd, "Open", filePath, 0&, 0&, SW_SHOWNORMAL
End Sub

Prøv at kigge lidt på det der, den skal bare kaldes med :

Call OpenAnyFile

Hej igen
Jeg har fået det til at virke med kode kopieret direkte fra ms videndatabase. Det er shellexecute der skal bruges.

NB magik, vis du læser med så bør du lige være opmærksom på at jeg ikke har snydt dig for points idet at jeg allerede havde implementeret shelleexecute fra ms videnbase i mit projekt. Jeg håber det er i orden med dig...

Jan

Jan: Det er helt i orden. Det vigtigste er da osse at du får dit problem løst - points har jeg nok af.  :o)

Ski' godt magik, god weekend...

Tak i lige måde.  :o)