Ecrire dans un fichier après avoir vérifié sa présence

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 467 fois - Téléchargée 36 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

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

Ajouter un commentaire

Commentaire

Messages postés
229
Date d'inscription
dimanche 3 juin 2001
Statut
Membre
Dernière intervention
5 octobre 2003

Effetivement ca me semble bien long!
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.

Du même auteur (cs_toxicAvenger)