Försatt kamp med filöppningen

1 svar · 177 visningar · startad av katis 7 juni 2002

katisMedlem sedan apr. 200220 inlägg

Frågan7 juni 2002 12:27#1

Halloi!
Min stora önskemål att öppna alla filler i mappen "files".
Och mitt tapra försök(inte fungerande) ser ut på följande sätt:

<html>
<%@ LANGUAGE="VBScript"%>
<body>
<p><h3><font style = "Verdana">Dina gamla beställningar</font></h3></p>
<%
Dim objFSO, objMinFil
Dim objMinMapp, mapp
path = Server.MapPath("\bonab")
mapp = path & "\files"

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objMinMapp = objFSO.GetFolder(mapp)

For each objMinFil in objMinMapp.Files
namn = objMinFil.Name
Set objMinFil = objFSO.OpenTextFile (mapp & "\" & namn)
While Not objMinFil.AtEndOfStream
rad = objMinFil.ReadLine & "<br>"
Wend
MinFil.Close
Next
%>
</body>
</html>

Vad är det för fel med den här koden?
Tack på förhand

solbulleMedlem sedan mars 20015 287 inlägg

7 juni 2002 12:46#2

<html> 
<%@ LANGUAGE="VBScript"%> 
<body> 
<p><h3><font style = "Verdana">Dina gamla beställningar</font></h3></p> 
<% 
Dim objFSO, objMinFil 
Dim objMinMapp, mapp 
path = Server.MapPath("\bonab") 
mapp = path & "\files" 

Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
Set objMinMapp = objFSO.GetFolder(mapp) 

For each objMinFil in objMinMapp.Files 
namn = objMinFil.Name 
Set objMinFil = objFSO.OpenTextFile (mapp & "\" & namn) 
While Not objMinFil.AtEndOfStream 
rad = objMinFil.ReadLine & "<br>" 
response.write rad
Wend 
objMinFil.Close 
Next 
%> 
</body> 
</html>

I din kod öppnar du alla filer, men sen gör du ju inget med dom!?!
Vidare stänger du fel object på slutet.