nom_fichier_entree = "D:\fichier.txt" nom_fichier_sortie = "D:\res.txt" Dim fichierSortie Dim fichierEntree Set fichierSortie = CreateObject("Scripting.FileSystemObject").OpenTextFile(nom_fichier_sortie, 2, True) Set fichierEntree = CreateObject("Scripting.FileSystemObject").OpenTextFile(nom_fichier_entree, 1, False) Dim compteur Dim ligne compteur=0 Do While fichierEntree.AtEndOfStream = False And compteur < 100 ligne = fichierEntree.ReadLine fichierSortie.write(ligne) fichierSortie.writeBlankLines 1 compteur=compteur+1 Loop fichierEntree.Close fichierSortie.Close
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question