Soyez le premier à donner votre avis sur cette source.
Snippet vu 14 388 fois - Téléchargée 36 fois
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()
Mercii !!
tretert
erterte
retret
ertet
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.