FileSystemObject åbne tomme filer

Hvad med:
if len(Text)>0 then
  GoFile = Replace(Text, VbCrLf, "<br>")
else
  ' et-eller-andet
end if

Du kan jo prøve at indsætte On error Resume Next som i nedenstående:

dim fso, File, Text, stream

Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.GetFile(""&ServerLocal&"Client\Generel\Includes\Generated\"&FsoFile&".js")

lastedit = File.DateLastModified

On Error Resume Next

Set stream = File.OpenAsTextStream()

Text = stream.ReadAll

stream.Close

Set stream = Nothing
Set File = Nothing
Set fso = Nothing

GoFile = Replace(Text, VbCrLf, "<br>")

Dvs du vil skrive det sådan her ?
- Det virker ikke rigtigt... det er omkring (Text = stream.ReadAll) det går galt da der ikke er noget at læse :-s

<%
dim fso, File, Text, stream

Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.GetFile(""&ServerLocal&"Client\Generel\Includes\Generated\"&FsoFile&".js")


lastedit = File.DateLastModified

Set stream = File.OpenAsTextStream()

Text = stream.ReadAll

stream.Close

Set stream = Nothing
Set File = Nothing
Set fso = Nothing

if len(Text)>0 then
  GoFile = Replace(Text, VbCrLf, "<br>")
else
  ' et-eller-andet
end if
%>

prøv lige med On Error Resume Next

radion > det ser faktisk ud til at virke... havde ikke lige selv tænkt på vi kunne bruge On error Resume Next i denne sammenhæng *GG*
Mange takker for hjælpen, nu kan jeg endelig få det sidste kodet færdig :)

God fornøjelse.

tak for pointene.