API "ouvrir avec"

Bonjour !

Quelqu'un connaitrait-il un API pour avoir la fenetre "Ouvrir avec"?

J'ai recherché sur internet, mais la seule que j'ai trouvé est pour vb2005 :

Code:

---

1 2 3

Public Shared Function OpenWith(ByRef filename As String) As Process Return Process.Start("rundll32.exe", String.Format("shell32.dll,OpenAs_RunDLL {0}", filename)) End Function

---

et je n'arrive pas à la faire fonctionner sur vb6

Sinon y a t'il une autre solution?

Merci d'avance

en m'inspirant de ton code (sans api...)

Code:

---

1 2 3

Dim stFic As String stFic = App.Path & "\Monfic.txt" Shell "rundll32.exe shell32.dll,OpenAs_RunDLL " & stFic

---

Je te remercie, je vais essayer !

Encore merci, ça marche !