shell åben alle filer

fandt dette
http://redir.codevb.com/out?url=http://www.freevbcode.com/ShowCode.asp?ID=264

Hej.

I et af mine programmer kan forekomme et antal ekstensions, men ellers må man kunne 'slå op' i windows liste over associationer.  Det er måske det linket ovenfor omhandler?

If txtdat(9).Text = "doc" Then
      i = Shell(wordpadsti & " " & dokfil, 1)
      Exit Sub
    End If
   
    On Error GoTo wordfejl
    If txtdat(9).Text = "txt" Then
      i = Shell(wordpadsti & " " & dokfil, 1)
      Exit Sub
    End If
   
    On Error GoTo wordfejl
    If txtdat(9).Text = "rtf" Then
      i = Shell(wordpadsti & " " & dokfil, 1)
      Exit Sub
    End If
   
    If eks = "." & ini(9) Then
      i = Shell(tekbeh & " " & dokfil, 1)
      Exit Sub
    End If
   
filsxw:
    If txtdat(9).Text = "sxw" Then
      If Len(Dir(dokfil)) > 4 Then
          i = Shell(tekbeh2 & " " & dokfil, 1)
        Else
          i = Shell(tekbeh2)
      End If
    Exit Sub
  End If
   
    On Error GoTo acrofejl
    If eks = ".pdf" Then
      i = Shell(acrosti & " " & dokfil, 1)
      Exit Sub
    End If
   
    If eks = ".htm" Then
      ret = ShellExecute(Me.hwnd, "Open", dokfil, "", App.Path, 1)
      Exit Sub
    End If