Soyez le premier à donner votre avis sur cette source.
Vue 6 853 fois - Téléchargée 15 765 fois
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
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.