Bonjour

Dans le script ci-dessous lorsque je remplace "essai.txt" par
"a:essai.txt" tout se passe bien sinon je n'obtiens rien.

Pourquoi ?

D'avance merci.

@lpf

J.Phil.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
<% @language="vbscript" %>
<% option explicit %>
<html>
<!-- cration et visualisation d'un fichier -->
<!-- J.Phil. DELCROIX - novembre 2003 -->
<head>
<title>Utilisation d'un F.S.P.</title>
</head>
 
<body bgcolor="#cdcdcd">
<%
Dim FSO, fichier,ligne
 
Set FSO = CreateObject("Scripting.FileSystemObject")
 
Set fichier = FSO.Opentextfile("essai.txt",8,true)'-- 2:criture  8:ajout
fichier.writeline now()
fichier.WriteLine "J.Phil. DELCROIX"
fichier.writeline String(50,"-")
fichier.Close
 
set fichier=FSO.opentextfile("essai.txt",1,true)'-- en lecture
do until fichier.atendofstream
ligne=fichier.readline()
response.write(ligne&"<br>")
loop
fichier.close
 
%>
</body>
</html>