0/5 (1 avis)
Snippet vu 13 727 fois - Téléchargée 38 fois
<% Dim Titre Dim FSO Dim inF Dim Contenu Dim fichier Dim repertoire Dim chemin_fichier dim cheminVirtuel dim cheminPhysique titre = "ceci est le titre" Response.Write Titre 'Pas besoin de mettre les parenthèses quand il s'agit d'une variable ASP contenu = "ceci est le contenu" Response.Write Contenu 'même chose qu'au dessus Set fso = Server.CreateObject("Scripting.FileSystemObject") 'on instancie l'objet que l'on va utiliser '------------------------------------------------------------------------------------ '----- Ce bordel sert à récupérer le chemin physique du fichier.--------- '----- Une fois qu'on l'a, on a plus à se casser le trognon --------- '----- La méthode peut paraître un peu longue mais elle ---------- '----- fonctionne pour toute manipulation de fichiers ---------- '------------------------------------------------------------------------------------ cheminVirtuel = Request.ServerVariables("PATH_INFO") cheminPhysique = Server.Mappath(cheminVirtuel) ' à ce stade, on a le chemin physique de la page affichée. chemin = Left(cheminPhysique,inStrRev(cheminPhysique,"\")-1) ' on veut juste récupérer les informations du répertoire fichier = "results.txt" repertoire = "\dossier\" chemin_fichier = chemin & repertoire & fichier 'on obtient le chemin d'accès en dur if fso.FileExists(chemin_fichier) then 'on vérifie la présence du fichier 'Initialise le fichier à ouvrir avec son chemin d'accès Set inF = fso.OpenTextFile(chemin_fichier,8,True) 'Le fichier existe. On l'ouvre else 'Initialise le fichier à ouvrir avec son chemin d'accès Set inF = fso.CreateTextFile(chemin_fichier,True) 'il n'existe pas et on le crée end if 'ecriture des informations utilisateur inF.Write CStr(contenu) 'ou writeLine inF.close 'Libération de la mémoire côté serveur Set fso = Nothing %>
21 févr. 2002 à 18:36
Création FSO
FileExists
WriteLine
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.