Ouvrir un fichier quelconqueRésolu

Question

Bonjour, 

je me fais une petite appli d'archivage de données numérisées, en VB6 : photos, textes, documents, etc... J'obtiens donc une liste des documents archivés mais je ne vois pas comment provoquer leur affichage (style ouvrir avec). Est-ce qu'il existe une source qui traite cet aspect des choses?

Merci

Lyc@n · Answer

Ta question n'est pas très détaillé, tu veut ouvrir les fichiers dans ton programme ou avec le programme assigné par défaut à l'extention du fichier (je veux dire: Tu ouvre un .doc, ça l'ouvre avec LibreOffice...)? Si tu veut ouvrir le fichier avec son programme par défaut, tu peut essayer ça:
Shell("Chemin/vers/ton/fichier.extention")

cs_jacques-antoine · Answer

oui, c'est exactement ça : mes fichiers sont d'un type quelconque et je voudrais obtenir, de la part de mon appli, un comportement similaire à l'explorateur de fichiers Windows, c'est-à-dire une ouverture sur double clic. 
 
L'astuce suggérée ne fonctionne pas

Lyc@n · Answer

Alors tente ça:
Process.Start("le chemin du fichier ici")

cs_jacques-antoine · Answer

Non, ça ne marche pas mieux...

Merci de ta patience!

ucfoutu · Answer

Bonjour,
"Non, ça ne marche pas mieux..."
 ne nous dit rien ! Message d'erreur ? Lequel ?
Tu devrais en avoir un "joli", pourtant, si le code VB.Net (la présente section) que t'a donné Lyc@n a été appliqué à ... VB6 !
Tu développes sous quoi, exactement ? VB.Net ou VB6 ?

cs_jacques-antoine · Answer

Erreur 424, un objet test requis...

cs_jacques-antoine · Answer

un objet est requis

cs_jacques-antoine · Answer

j'oubliais : VB6

ucfoutu · Answer

Je déplace donc cette discussion.
Prends-en bonne note pour tes prochaines questions VB6. C'est IMPORTANT (tu le vois bien) car code totalement différent.

ucfoutu · Answer

Bon ...
pour ouvrir tout type de fichier comme tu l'as dit : sous VB6 : utilisation de la fonction ShellExecute de l'Api de Windows.
Seule manière d'ouvrir un fichier avec son exécutable. Et a condition toutefois que cet exécutable ait été associé à l'extension (et çà, c'est depuis Windows, qu'on le fait, si pas déjà fait).
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

cs_jacques-antoine · Answer

Ok ucfoutu, le problème de l'erreur d'aiguillage vient de ce qu'on ne peut pas différencier VB6 de VBNet... et que j'ai eu le tort de ne pas préciser le domaine sur lequel portait la question. Meaculpa, donc.

Bon, j'ai utilisé  ShellExecute, le processus voulu (notepad et wordpad pour les tests effectués) se lance bien (vérifié via le gestionnaire des tâches), mais aucune fenêtre ne s'affiche... Voilà ma commande :

1 - la déclaration

  Public Declare Function ShellExecute Lib "shell32.dll" _
  Alias "ShellExecuteA" (ByVal hwnd As Long, _
          ByVal lpOperation As String, ByVal lpFile As String, _
          ByVal lpParameters As String, ByVal lpDirectory As String, _
          ByVal nShowCmd As Long) As Long

2 - l'utilisation

Tab_rep(Rang_cat) est le  chemin absolu
Liste_documents.Text est le nom du fichier à ouvrir

fichier = Tab_rep(Rang_cat) & "\" & Liste_documents.Text

retour = ShellExecute(Form_archivage.hwnd, "open", fichier , _
            vbNullString, vbNullString, SW_SHOWNORMAL)
MsgBox ("Retour = " & retour)

et le code de retour est 42, donc sans erreur : il doit manquer quelque chose, mais quoi?

ucfoutu · Answer

je viens (ce n'était pas utile, mais bon ...) de faire chez moi ce test :

 Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongConst SW_SHOWNORMAL = 1Private Sub Form_Load()        ShellExecute Me.hwnd, vbNullString, "D:	oto.txt", vbNullString, "D:", SW_SHOWNORMALEnd Sub
et mon fichier toto.txt a été ouvert.

cs_jacques-antoine · Answer

Gagné!!!! Je voyais bien qu'il manquait quelque chose, mais je ne voyais pas quoi, surtout que je voyais l'argument SW_SHOWNORMAL comme une constante VB, donc initialisée... Je l'ai donc déclarée en tant que telle et initialisée = 1 et toc, j'ai ce que je cherchais.

Merci infiniment. C'est réconfortant d'avoir affaire à des gens calés... et qui ne commencent pas par penser avoir en face des crétins, en prenant le temps de répondre gentiment, même un dimanche!

cs_jacques-antoine · Answer

Merci encore, ufoutu. Question réglée et merci également pour les explications finales, bien que la logique soit un brin tordue et en contradiction flagrantes avec les principes VB6. En tous cas, c'est noté pour la prochaine fois, car il y en aura une...

cs_jacques-antoine · Answer

Pigé, ucfoutu... J'ai seulement tendance à être obnubilé par mon environnement (et les sujets qui m'occupent) et je perds souvent de vue celui dans lequel VB6 s'exécute. Mais bon, il n'y a pas d'âge pour apprendre ni pour changer sa façon de raisonner.

Quant à savoir si FSO ou pas FSO, c'est un débat qui me passe largement au-dessus de la tête : dans la mesure où VB6 rempli simplement les fonctions que je lui demande, je ne cherche pas plus loin. Pour ce qui concerne la rapidité d'exécution, avec les machines d'aujourd'hui (la mienne est cadencée à 3 MHz et des poussières), ce n'est pas un paramètre important pour moi, puisque je programme pour ma satisfaction personnelle et non pour gagner ma vie : je suis à la retraite et ça me permet de maintenir ma cervelle en état de marche. Encore que ce que je ponds peut très bien servir à des actifs, pour eux-mêmes ou dans leurs vies professionnelles. À eux de voir s'il faut accélérer l'exécution ou non : ils disposent des sources et de la liberté totale d'en faire ce qu'ils veulent.

cs_jacques-antoine · Answer

C'est ce que je fais, ucfoutu : ce que je mets à disposition est abondamment commenté (c'est un principe utile d'abord pour moi-même, quand je reviens dessus) et la programmation claire (en principe...), aérée et modulaire (pas toujours facile). Surtout, j'évite d'utiliser des usines à gaz quand les choses peuvent être faites plus simplement, ce que je fais ressemblant souvent à une usine à gaz... Ce n'est qu'une apparence, le principe étant que tous les cas sont envisagés et donc traités. Une manière de faire qui me permet de revenir dessus 10 ans après. J'ai eu à dépanner un gars (un enseignant) qui mettait la totalité de ses boucles et tests sur une seule ligne, quel que soit le nombre d'instructions du paquet ! Je n'ai pas réussi à le faire changer de façon de procéder (je crains pour ses élèves!)...

Amicalement

Ouvrir un fichier quelconque

16 réponses

Votre réponse

Discussions similaires