Pré-ajout de fichier texte de script VB

Question

Quelqu'un sait-il comment ajouter rapidement (ajouter deux nouvelles lignes de texte) au début d'un fichier texte existant à l'aide de VB Script ou d'un fichier Bat? La solution la plus élégante obtient le tic-tac.

Answer 1

Que diriez-vous de cela:

Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile("test.txt", 1)
ReadAllTextFile =   f.ReadAll
Set f = fso.OpenTextFile("test.txt", 2, True)
f.WriteLine("Blaaa")
f.WriteLine("Blaaaa some more...")
f.Write(ReadAllTextFile)

Source: Conseils techniques

Answer 2

Vérifiez Jos & # 233; Basilios répond pour le code et la référence à l'OSV. Vous allez utiliser cela.

MAIS : Je ne voudrais pas emprunter la route ReadAllTextFile = f.ReadAll , car il pourrait s'agir de quelques gigaoctets (qui sait?).

INSTEAD :

1. ouvrir un nouveau fichier
2. écrire des lignes pré-ajoutées
3. lire ligne par ligne à partir d'un ancien fichier et l'écrire dans un nouveau fichier
4. (fermez les deux fichiers)
5. supprimer l'ancien fichier
6. renommer un nouveau fichier - > ancien fichier