FileSystemObject
Jeg har et problem med at flytte min kode fra en pws på in lokale maskine til en IIS4.0 på en server.Her er koden:
<%
Dim objFS,objFile,beskrivelse,read,linie
read = 1
beskrivelse = \"\\\\etellerandet\\etellerandet\\jetphone\\besked.txt\" \'etellerandet=stien
set objFS = Server.CreateObject(\"Scripting.FileSystemObject\")
\'response.write objFS.FileExists(beskrivelse)
If (objFS.FileExists(beskrivelse)) Then
set objFile = objFs.OpenTextFile(beskrivelse,read)
if objFile.AtEndOfStream = True THEN
%>
<MarQuee>Ingen beskeder i øjeblikket</MARQUEE>
<%
else
linie=objFile.ReadLine
%>
<MARQUEE>her <%= linie %> </MARQUEE>
<%
End if
objFile.Close
end if
%>
Begge computere (min lokale og serveren) er på samme netværk så de kan begge se derhen, hvor filen ligger.
FileExists er false på IIS\'en og true på pws ????
Jeg har også prøvet at mappe drevet og skrive I:\\beked.txt, men det virkede heller ikke.
Endeligt har jeg forsøgt at lave et virtuelt drev i IIS og så kan jeg sagtens se http://localhost/mitVirtuelleDrev/besked.txt men jeg kan vel ikke bruge en virtuel sti i forbindelse med filesystemobject ?
