FONCTION DE RECUPERATION DU CONTENU D'UN FICHIER TEXTE

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