A voir également:
- [VBS] ajouter une ligne dans un fichier texte
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
1 réponse
Pour faire cela, on doit ouvrire le fichier texte en mode ForAppending avec openTextFile, de l'objet FileSystemObject. Voilà un code qui devrait fonctionner :
function ajoute(nameoffile, textadd)
set sys=CreateObject("Scripting.FileSystemObject")
if not sys.fileexists(nameoffile) then
ajoute=1 'retourne vrai si le fichier est inexistant
end if
set fr=sys.openTextFile(nameoffile, 8) '8 pour le mode ForAppending
fr.write(textadd)
fr.close
fr=null
ajoute=0 'retourne faux si le fichier existe
end function
ajoute "testtxt.txt", "Bonjour."
function ajoute(nameoffile, textadd)
set sys=CreateObject("Scripting.FileSystemObject")
if not sys.fileexists(nameoffile) then
ajoute=1 'retourne vrai si le fichier est inexistant
end if
set fr=sys.openTextFile(nameoffile, 8) '8 pour le mode ForAppending
fr.write(textadd)
fr.close
fr=null
ajoute=0 'retourne faux si le fichier existe
end function
ajoute "testtxt.txt", "Bonjour."