Source / Exemple :
<%
Function EcrireDansFichier(Fichier, Contenu, Ajouter)
On Error Resume Next
If Ajouter = True Then
LeMode = 8
Else
LeMode = 2
End If
Set Fs = Server.Createobject("Scripting.FileSystemObject")
Set LeFichierTexte = Fs.OpenTextFile(Fichier, LeMode, True)
LeFichierTexte.Write Contenu
LeFichierTexte.Close
Set LeFichierTexte = Nothing
Set Fs = Nothing
End Function
%>
<%
'Pour creer/ecraser un fichier
Call(Monfichier,"Ceci est mon texte", True)
'Pour ajouter à la suite d'un fichier
Call(Monfichier,vbCrLf & "Ceci est la 2ème ligne de mon texte", False)
%>
Conclusion :
Vous pouvez utiliser cette fonction et remplacer le texte par le contenu d'un formulaire
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.