Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Ecrire un fichier texte depuis une page asp

0/5 (5 avis)

Snippet vu 34 611 fois - Téléchargée 23 fois


Contenu du snippet


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 EcrireDansFichier(Monfichier,"Ceci est mon texte", True)
    'Pour ajouter à la suite d'un fichier
    Call EcrireDansFichier(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

A voir également

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.