---

Hej,
Har lavet (= skrevet af efter en bog) dette lille script, der skal liste en
fil.
Prøvede først at liste en anden fil i samme folder, men det drillede. For at
være sikker på filens eksistens, valgte jeg at liste selve filen med
scriptet. Virker heller ikke....øv øv øv.
Anyway, her er scriptet.

<%
Dim filesys, txtfile, line
Set filesys = CreateObject("Scripting.FileSystemObject")
Set txtfile = filesys.OpenTextFile("default.asp",1,0)

Do
line = txtfile.ReadLine
%>
<%=line%>
<%
Loop Until txtfile.AtEndOfStream
txtfile.Close
%>


og her er fejlmeddelelsen.



Der opstod en Microsoft VBScript-kørselsfejl error '800a0035'
Filen blev ikke fundet
/electronic/heecommdata/default.asp, line 4

Hvis jeg inkluderer hele stien (burde ikke være nødvendigt, da de er i samme
folder) melder den bare at den ikke kan finde stien i stedet for, i den
foregående linje (Endnu mere ØV)
Så, hvad har jeg overset?? punktum er IKKE et komma!

Mvh
Adrian

---

On Sat, 6 Apr 2002 02:18:29 +0200, "Adrian Hjelmslund"
<electronic@hjelmslund.dk> wrote:

>Prøvede først at liste en anden fil i samme folder, men det drillede. For at
>være sikker på filens eksistens, valgte jeg at liste selve filen med
>scriptet. Virker heller ikke....øv øv øv.
>Anyway, her er scriptet.
>
><%
>Dim filesys, txtfile, line
>Set filesys = CreateObject("Scripting.FileSystemObject")
>Set txtfile = filesys.OpenTextFile("default.asp",1,0)

Prøv med:
Set txtfile = filesys.OpenTextFile(Server.Mappath("default.asp"),1,0)

Good luck,
Jørn

--
Jørn Andersen,
Brønshøj

---

> Set txtfile = filesys.OpenTextFile(Server.Mappath("default.asp"),1,0)

GENIALT! Nu triller det.

Tak
Adrian