Vb 6.0 to vb 5.0 par le menu contextuel

Soyez le premier à donner votre avis sur cette source.

Vue 5 984 fois - Téléchargée 677 fois

Description

Aucune description n'est fournie pour ce projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
209
Date d'inscription
samedi 11 novembre 2000
Statut
Membre
Dernière intervention
6 novembre 2009

Moi qui suis justement un utilisateur de VB5, tu pourrai aussi par exemple, corriger les Classes en cherchant leur emplacement en lisant le fichier *.vbp
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
1
Vous etes dur de la feuille ou quoi ?

Les exe sont automatiquement supprimés des ZIP lors de l'upload !!!
Ceci afin d'éviter la propagation de virus !
Messages postés
140
Date d'inscription
jeudi 21 septembre 2000
Statut
Membre
Dernière intervention
16 août 2012

Dommage qu'il n'y a pas d'exécutable !!!!!
Messages postés
15
Date d'inscription
samedi 19 novembre 2005
Statut
Membre
Dernière intervention
17 septembre 2006

sur mon PC je recevais justement l'erreur 52 a partir du code que tu propose parceque le shell passait le nom de fichier à mon prog avec des doubles-quotes, donc je les supprimais dans le code d'origine, mais apparamment ça fait pas ça partout.
Pareil pour la BDR j'avais pas de pb, mais mon PC est peut-etre bizzare ;p

Je vais qd meme corriger les erreur, merci

>>>A bon les exe st supprimés des zips :o
Messages postés
41
Date d'inscription
mardi 20 mai 2003
Statut
Membre
Dernière intervention
25 août 2007

Bon ben voilà, en corrigeant comme suit, cela passe :
1) dans InscriptInWinReg(), ajouter un "" dans la clé passée à RegEcrire, on a donc :
Call RegEcrire(0, "HKEY_CLASSES_ROOT\VisualBasic.Project\shell\VB62VB5", "Convertir pour VB5.0")
Call RegEcrire(0, "HKEY_CLASSES_ROOT\VisualBasic.Project\shell\VB62VB5\command", CheminApplication)
>>> l'inscription dans la BDR est maintenant correcte
2) dans TraitVB6File(), remplacer :
Sourc = Left(Right(txtVB6, (Len(txtVB6) - 1)), (Len(txtVB6) - 2))
par
Sourc = command()

et

Cibl = Right(Left(txtVB6, Len(txtVB6) - 4), (Len(txtVB6) - 5)) & "Bis.vbp"
par
Cibl = Sourc & ".bis.vbp"

>> plus d'erreur '52'

@+,
Derick
Afficher les 8 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.