Créer un projet standard et créer une feuille.
Y ajouter un CommonDialog (appelé ici Dialog1)
Source / Exemple :
Private Sub Form_Load()
On Error GoTo Annuler
Dialog1.ShowOpen
GoTo Suite
Annuler:
Exit Sub
Suite:
Dim FichierVB6
FichierVB6 = Dialog1.filename
FileCopy FichierVB6, (Mid(FichierVB6, 1, Len(FichierVB6) - 3) & "old")
Dim Ligne As String, Texte As String
Open FichierVB6 For Input As #1
On Error GoTo FinFichier
Do Until EOF(1) = True
Do Until Ligne = "Retained=0" Or Ligne = "DebugStartupOption=0" Or Ligne = "CodeViewDebugInfo=0"
Line Input #1, Ligne
Texte = Texte & vbCrLf & Ligne
Loop
Texte = Left(Texte, Len(Texte) - Len(Ligne) - 2)
Ligne = ""
Loop
FinFichier:
Close #1
Kill FichierVB6
Open FichierVB6 For Output As #2
Print #2, Texte
Close #2
MsgBox "Conversion effectuée avec succès !", , "VB6 => VB5"
End
End Sub
Conclusion :
Ici, le fichier VB6 original est conservé avec une extension *.old au cas où...
Pour ceux que ça fatigue de lancer le programme et qui désirent l'avoir en cliquant sur le projet VB6 avec le bouton droit de la souris :
Ouvrir une fenêtre Windows (par ex. poste de travail): Menu Affichage (ou Outils, selon la version de Windows) => Options des dossiers
Onglet Types de fichiers. Sélectionner "Visual Basic Project" et cliquer sur Modifier...
Puis Nouveau...
Et définir les propriétés suivantes:
Action: Conversion VB6=>VB5
Application utilisée: "Chemin de l'exe.exe"
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.