Fonction de recuperation du contenu d'un fichier texte

Commenter

Contenu du snippet

ce petit bout de code permet de recuperer le contenu d'un fichier texte et de l'afficher.

Source / Exemple : 


Dim nbre
Dim strTexte

Function Recuperation()

             '------------ Creation de la  reference pour le chemin d'acces 
             			fichier= "nonDuFichier" & nbre & ".txt"
             			repertoire="\Database\"
        chemin_acces= Server.MapPath (repertoire & fichier) 

             '------------Creation de l'objet FSO
             			Set FSO=Server.CreateObject("Scripting.FileSystemObject")

             '----------- Test de l'objet FSO
             			If FSO.FileExists(chemin_acces) Then
             			Set Out=FSO.OpenTextFile(chemin_acces,1, FALSE)
             			
             			strTexte=Out.ReadAll
             			
             			Else
             			Response.Write("FSO n'existe pas ou fin de la boucle")
             			Response.Write(strTexte)
             			End If

End Function

Recuperation()

A voir également

S'inscrire maintenant

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 (cartoongraphist)