Bonjour,
J'ai le code suivant :
Function templateRead()
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
dir = Server.MapPath("\nl_templates\")
Fnm = dir & "test.txt"
if FSO.FileExists(Fnm) then
set inF = FSO.OpenTextFile(Fnm,1,false)
bodyTosend = inF.readAll
else Response.Write("FSO n'existe pas ou fin de la boucle")
response.write bodyTosend
inF.close
End Function
|
Il est sensé lire le contenu du fichier test.txt, me le mettre dans la variable bodyTosend et ensuite me l'afficher.
Pb j'ai le msg suivant :
Erreur d'exécution Microsoft VBScript error '800a003e'
L'entrée dépasse la fin du fichier
Qq'un sait d'ou cela peut venir et comment faire pour y remedier ?
Merci d'avance.
jeff
PS Je suis sous Win XP Pro avec IIS 5.1