Soyez le premier à donner votre avis sur cette source.
Snippet vu 20 812 fois - Téléchargée 87 fois
<% 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) %>
j'ai vraiment bcp besoin de ce code merci bcp.
mais comment on déclare le chemin du fichier et son nom ?
:s
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.