Problème de récupération d'argument

Question

Bonjour à tous,
J'essaye de faire un petit programme et je butte sur un problème:
J'aimerais ouvrir des fichiers depuis l'explorateur windows avec mon programme et retrouver le chemin d'acces de ceux-ci.
Pas de souci à première vu: My.Application.CommandLineArgs (je suis sous vb 2005 express)fonctionne parfaitement mais lorsque j'appuie sur "lire tout" d'un dossier de vidéos windows, il ne détecte que le premier fichier du dossier, j'ai essayé avec un  Sub Main(
ByVal CmdArgs() 
As
String)  et un S
tartupNextInstance(pour vérifier qu'il n'appelait pas plusieurs fois mon programme), mais sans succes.
Quelqu'un aurait-il une idée??

ShareVB · Answer

salut,

une idée, oui...mais en vb6 :
http://www.vbfrance.com/codes/OUVRIR-DOCUMENTS-DANS-MEME-INSTANCE-APPLICATION-SANS-RELANCEMENT_27089.aspx

ShareVB

sousoulebarbu · Answer

Exscusez moi de ne pas avoir répondu plus tôt, mais j'était en vacance, sans internet.
Merci pour ton lien, mais pour moi, cette technique n'est pas adaptable telle quelle en vb2005 ou ça correspondrait à ce que j'ai testé plus haut.
Quelqu'un aurait une autre réponse???

sousoulebarbu · Answer

toujours personne pour m'aider???

ShareVB · Answer

salut,

si si, moi : http://www.vbfrance.com/code.aspx?ID=41008...

cela dit quand :
-> ton appli est lancée : tout les fichiers ouvert arrivent par DDE
-> ton appli n'est pas lancée : le premier arrive dans environment.getcommandlineargs, et les autres par DDE...

ShareVB

sousoulebarbu · Answer

Dsl de te décevoir, mais ça ne fonctionne pas: Lorsque je clique sur lire tout, ça ne fait rien du tout, et pareil pour lire la sélection(après avoir remplacer xyz par avi), sinon,c'est vrai que ton code fonctionne parfaitement;C'est vraiment trop injuste!!!!lol

ShareVB · Answer

salut,

deux choses :
-> je n'arrive pas à me rappeller où j'ai vu le bouton "lire tout"
-> pour que mon programme marche, il faut que tu utilises EXTAssociation.FileAssociation pour ajouter une action de lecture...

le prb des fichiers AVI c'est qu'il ne sont pas gérés avec une simple association registre mais avec une extension shell...donc ca risque d'être compliqué pour mettre ton programme à la place....

ShareVB

sousoulebarbu · Answer

Tout d'abord, merci de t'interresser à mon problème.
1)Le bouton lire tout apparait dans le volet d'exploration, à gauche des fichiers du dossier, au dessu de gestion des fichiers lorsque le dossier est de type vidéo (clique droit sur le dossier,propriété,personnaliser dans "utiliser ce type de dossier comme modèle) mais normalement win le fait tout seul lorsqu'il y a que des vidéo dedans.
2)J'ai pas compris, l'action "ouvrir avec mon programme" ne suffit pas??? Pour le moment, je veux just qu'il m'affiche tous les fichiers dans la listbox.

3) C'est quoi une extension shell? Tu n'as jamais vu de programme en vb en utiliser une???

sousoulebarbu · Answer

Share VB, tu m'a oublié??

ShareVB · Answer

salut,

oupss....désolé...je manque un peu de temps en ce moment...

une extension shell, c'est une dll qui est appelée par explorer par exemple sur chaque affichage d'un dossier pour mettre le "lire tout" à cet endroit, ou encore ajouter une entrée dans un menu contextuel...

si ca fonctionne avec XYZ alors ca DOIT marcher avec AVI...donc si tu mets dans ton code :
        EXTAssociation.FileAssociation(".avi", "", "", "", "", 0, "Ouvrir avec ton application", "Ouvrir avec ton application", "", My.Application.Info.DirectoryPath & "" & My.Application.Info.AssemblyName & ".exe", "[print(""%1"")]", "Azerty", "System", "")

normalement, ca doit marcher...du moins si tu choisis deux fichiers,  tu cliques à droite sur "Ouvrir avec ton application", normalement l'appli se lance et affiche le deuxième dans la list box...si tu refais la même chose ca doit s'afficher dans la list box...sinon c'est vraiment qu'il y a un problème avec les extensions gérée par une extension shell...

si ca ne marche pas, je ressayerais quand je trouverais cinq minutes...

ShareVB

sousoulebarbu · Answer

Bin désolé mais ça ne marche absoluement pas chez moi

ShareVB · Answer

salut,

je viens d'essayer et chez moi ca fait planter explorer...uniquement avec les fichiers AVI...avec XP pro SP2...donc à mon avis; il va falloir passer au extension Shell ContextMenuHandler...

pour le moment, je n'ai rien trouvé en VB.Net mais en C# :
http://www.codeproject.com/csharp/SimpleContextMenu.asp
et un peu de théorie : http://blogs.msdn.com/oldnewthing/archive/2004/09/20/231739.aspx

ShareVB

sousoulebarbu · Answer

Merci pour toute cette doc,je vais essayer de regarder ça, mais ça risque de prendre un peu de temps (prépa + petite copine dont les parents st partis en vacance= pa bcp de temps pour la programmation...)

Problème de récupération d'argument

12 réponses

Votre réponse

Discussions similaires