Discussion :

[Landscap]

Bonjour,

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

Code :

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

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 :

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

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.

[l_autodidacte]

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 :

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

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

[Landscap]

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

Code :

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

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..