Discussion :

[Janny]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Janny]

Je te remercie, je vais essayer !

[Janny]

Encore merci, ça marche !