Niveau
..........
En rapport...

écrire dans un fichier

Cette petite fonction permet d'écrire dans un fichier.
Elle comporte 3 paramètres :

  • le chemin complet vers le fichier (en incluant son nom)
  • les données à écrire
  • un Boolean qui défini si les donnée sont ajouter au fichier ou si on efface le fichier avant d'écrire.
asp
function fileWrite(byVal fileName, byVal contents, byVal append)
	dim oFS, iMode, oTF
	on error resume next
	set oFs = server.createobject("Scripting.FileSystemObject")
	if append = true then
		iMode = 8
	else 
		iMode = 2
	end if
	set oTF = oFs.OpenTextFile(fileName, iMode, True)
	oTF.Write contents
	oTF.Close
	set oTF = nothing
	set oFS = nothing
	on error goto 0
end function


06/03/2007 09:25 -

iDo –