Kald af shell kommando på forskellige maskiner.

brug:
x = shell("start " & strFilnavn)

Hvis programmet (word/ex..) er installeret, vil den automatisk starte det..

Måske noget du kan bruge:

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 Command1_Click()
Dim r As Long
CommonDialog1.ShowOpen
r = Startdoc(CommonDialog1.FileName)
End Sub

skal lige rettes lidt til..

Hmm

WTF? Speedo?! lol!!!

lazz1> "speedo" er blevet deaktiveret, da han/hun har gjort det i mange spm.
Videre med sagen.. så vidt jeg ved (da jeg har testet koden) virker koden.. hvad siger du til det?

- Noget feedback ville være rart.

ja, det virker. undskyld jeg fik holdt en længere pause :)
skriv et svar og lad mig give dig dine point.

OK.. Et svar er skrevet :-)