Ecrire dans un fichier après avoir vérifié sa présence
0/5 (1 avis)
Snippet vu 13 612 fois - Téléchargée 38 fois
Contenu du snippet
A utiliser lorsque l'on veut inscrire les données dans un répertoire particulier.
Ce bout de code ramène l'emplacement physique du répertoire sur le serveur.
Il faut juste s'assurer que le répertoire dans lequel on écrit dispose des droits en écriture
Un petit tour sur http://www.cnam-lofteur.fr.st m'sieur dames. Merci
Ce bout de code ramène l'emplacement physique du répertoire sur le serveur.
Il faut juste s'assurer que le répertoire dans lequel on écrit dispose des droits en écriture
Source / Exemple :
<%
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
%>
Conclusion :
Un petit tour sur http://www.cnam-lofteur.fr.st m'sieur dames. Merci
A voir également
- Ecrire dans un fichier après avoir vérifié sa présence
- Verification rio - Guide
- Vérification mot de passe javascript - Guide
- Verification iban - Guide
- Verificateur de billet - Guide
- Vérification tva - Guide
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.