AuSuperProgramme
Messages postés1Date d'inscriptionmercredi 20 mars 2002StatutMembreDernière intervention20 mars 2002
-
20 mars 2002 à 00:39
fredlynx
Messages postés662Date d'inscriptionmercredi 16 janvier 2002StatutModérateurDernière intervention16 octobre 2010
-
20 mars 2002 à 02:02
J'ai un sérieux problème lors de la création d'un fichier en reprenant des valeurs depuis un textbox pour le nom de fichier et un textarea pour le contenu de ce fichier.
voici mon code :
<%@ language = "vbscript" %>
<%
NomFichier = Request.Form("nomfichier")
textenews = Request.Form("newsletter")
Dim FSO, MonRep, TextFichier
Set FSO = CreateObject("Scripting.FileSystemObject")
Set MonRep = FSO.getfolder("c:")
Set TextFicher=MonRep.CreatetextFile(Response.Write("NomFichier") & ".txt", true)
TextFichier.write(Response.Write("textnews"))
TextFichier.close
Set TextFichier = Nothing
Set MonRep = Nothing
Set FSO = Nothing
%>
<% Response.Redirect("index,asp") %>
Je tiens à signaler que les valeurs sont transmises sans problème, c'est juste à la création du fichier que je soupçonne l'erreur.
fredlynx
Messages postés662Date d'inscriptionmercredi 16 janvier 2002StatutModérateurDernière intervention16 octobre 20103 20 mars 2002 à 02:02
Euh pour le répertoire je n'aurais pas pris c:\ mais plustot un virtue mais bon.... ça dépend du but!!
Ceci dit les variables doivent garder leurs nom du début à la fin ;) ... TextFichier & TextFicher c'est pas pareil :)... plus les petites autres bétises... voici la copie corrigée
NomFichier = Request.Form("nomfichier")
textenews = Request.Form("newsletter")
Dim FSO, MonRep, TextFichier
Set FSO = CreateObject("Scripting.FileSystemObject")
Set MonRep = FSO.getfolder("c:")
Set TextFicher=MonRep.CreatetextFile(NomFichier & ".txt", true)
TextFicher.write(textenews)
TextFicher.close
Set TextFicher = Nothing
Set MonRep = Nothing
Set FSO = Nothing