Ouvrir avec....Résolu

Question

SVP , Je checrhe a cree un projets vraiment complet

  c'est un Compresserur/Decomp.  Winzip...

  Bon passant au chose serieuse :

Lors de l'installation de mon logiciel , tout loes fichiers nt l'extension est .zip
 aurant une icones sp&#233;ci. et s'ouvriron avec mon programme.
   (Mais voici le problem !)

Je demande une aide :
ex :

Sub Form_load ()

Label1 = (app.path (du zip) & "" & le fichiers .zip )

If   label1 = "" Then 
msgbox "Aucun fichiers zip.." ....
Else
End if

End Sub

comment decouvrir le fichiers .zip  SVP...

Sous VB6.0

   Merci d'avance pour l'aide apport&#233;..

Julien237 · Accepted Answer

Ah pos&#233; comme &#231;a c'est plus clair...

Quand tu fais ouvrir avec, le nom du fichier que tu double clic est
pass&#233; en ligne de commande du programme &#224; ouvrir avec. Par exemple,
quand tu clic sur un mp3 et que winamp est ton lecteur par d&#233;faut,
windows ex&#233;cute ceci :



c:\program files\winamp\winamp.exe "c:\ma musique\mon mp3.mp3"



Tu n'as donc qu'&#224; r&#233;cup&#233;rer la ligne de commande avec la fonction command:



form_load()

    msgbox "Le nom du fichiers :  "  & interaction.command

end sub



Julien.

(j'esp&#232;re que c'est ca que tu demandais...)

cs_Jack · Answer

Salut
Quel est le rapport entre ta question et ce code ?
O&#249; est ton probl&#232;me ?

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Reacen · Answer

Mais.. On me pose tj cette question..

Voila , je vais etre clair au max

J'a cree un fichiers exe , qui comprend seulment Label1

 Quand je glisse un autre fichiers .zip , Je veux que Label1 = Le nom l'adresse complette du fichiers zip !

    Je supose que c'est bien clair cette fois non ?

cs_Jack · Answer

... tu cherches un fichier ZIP sur un r&#233;pertoire ?
Quel r&#233;pertoire ? Celui de ton Appli ?
If Dir(monR&#233;pertoire & "" & monFichier.ZIP") <> "" Then MsgBox "Fichier existe"

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Reacen · Answer

Noon !


Voila :


J'ai un fichiers dont l'extension est : Test.xxx

Quand je clique dessu , une fentre "Ouvrir avec le programme " s'ouvre..


Alors , si on choisi mon programme a moi . Je veux 


Msgbox "Le nom du fichiers :  "  &  (Le nom complet du fichiers test.xxx)

  Ne me dit pas cette fois que t'a mal compris....

cs_Jack · Answer

Pas clair ...
Je devine ta question : "Comment connaitre le chemin de l'application qui se lancera si je double-clique sur un fichier .XXX ?"
C'est &#231;a ?
Essaye d'expliquer ce que tu veux en enlevant les floritures. Tes histoires de Label, on s'en tape. Tu compliques tout et personne comprends rien.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Reacen · Answer

Waw tres cooool , Mais c'est ce que je cherchais 
  &#231;a fais une ann&#233; et + !!!
  

    Merci , &#231;a va bien m'aider ce truc !!!

cs_Jack · Answer

Pour retrouver l'EXE associer &#224; une extension :

Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
Const MAX_FILENAME_LEN = 260

Public Function ExeAssoci&#233;(Monfichier As String) As String
    Dim ChaineRet As String
    Dim ChaineExe As String
    Dim ret As Variant


    ChaineRet = Space(MAX_FILENAME_LEN)
    'Recherche de l'exe en fonction du fichier associ&#233;
    ret = FindExecutable(Monfichier, CurDir(), ChaineRet)
    If ret <= 32 Then
        ChaineExe = ""
    Else
        ChaineExe = Mid$(ChaineRet, 1, InStr(1, ChaineRet, Chr(0), 1) - 1)
    End If
    ExeAssoci&#233; = ChaineExe
End Function


MsgBox ExeAssoci&#233;("C:\monFichier.Zip")

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_DARKSIDIOUS · Answer

reacen : tu te relis des fois ? Franchement, je n'ai pas compris tes 2 premiers posts !

Pour le troisi&#232;me : il te faut utiliser la ligne de commande de ton prog pour r&#233;cup&#232;rer le nom du fichier lanc&#233; par l'explorateur Windows :
L'explorateur, si tu lui dit de lancer le fichier Test.xxx par le programme Prog1 va lancer la commande :

Prog1.exe "c:\Windows\Test.xxx"

Donc il te faut r&#233;cup&#232;rer le "c:\Windows\Test.xxx" dans la ligne de commande de ton prog (1&#232;r argument de ta ligne de commande).

Recherche un peu sur les sources du site, et tu trouveras ton bonheur (j'ai plus en t&#234;te la m&#233;thode pour r&#233;cup&#232;rer la ligne de commande).

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

Reacen · Answer

Vraiments..
   Merci les gars...

Je sais pas quoi fair sans vous....
  (Hors la plus part de temps je telecharger des sites anglais...)

  Et , au fait .. Vous avez raison , je m'exprime mal , par fois
Maman me disait tj &#231;a !

Ouvrir avec....

10 réponses

Discussions similaires