Association d'application à une extension.

Bonjour,

Alors voilà j'ai un très simple code qui permet d'ouvrir un fichier, quelque soit son extension,

Code:

---

1 2 3

Set sh = CreateObject("WScript.Shell") sh.Run("c:\Pack_Mise_a_Jour\jscmcec41s6qu.swf") Set sh=Nothing

---

Le soucis c'est que ce fichier n'a pas de programmes associés, pour l'ouvrir.

J'aimerais forcer l'ouverture du fichier avec une application voulue, que je puisse définir.

Une sorte de :

Code:

---

1 2 3 4

Launch "c:\Pack_Mise_a_Jour\jscmcec41s6qu.swf" with "c:\Program Files\App\Application.exe"

---

Je pense que c'est faisable mais je bloque là dessus.

Merci d'avance pour votre aide.

A ma connaissance, les fichiers .swf s'ouvrent avec les navigateurs comme IE et FF.
Mais si tu veux quand même l'ouvrir avec un autre programme, ce sera peut-être comme ceci :

Code:

---

1 2 3 4 5

Set sh = CreateObject("WScript.Shell") Launch = "c:\Pack_Mise_a_Jour\jscmcec41s6qu.swf" Prog = "c:\Program Files\App\Application.exe " sh.Run Prog & Launch Set sh=Nothing

---

J'ai réussi en Vb.net avec juste ça :

Code:

---

1 2 3 4 5 6 7 8

If Exists("C:\Pack_Mise_a_Jour\r0mHesRLjXkh1OdNqm.swf") Then Dim proc As New System.Diagnostics.Process proc.StartInfo.FileName = "C:\Pack_Mise_a_Jour\r0mHesRLjXkh1OdNqm.swf" proc.Start() Else MsgBox("Tu n'as pas mis le dossier Pack_Mise_a_Jour dans C:\", MsgBoxStyle.SystemModal, "Fichier Introuvable") End If

---

Merci quand même..