Jeg har følgende kode som jeg prøver at udføre i Global.asa. Jeg har en
sessionsvariabel "filer" som indeholder en streng på formen
"fuldsti\fil1;fuldsti\fil2;" de filer vil jeg så prøve at slette, men der
sker ingenting, jeg får heller ingenfejlmeddelelser frem. Hvad er der galt?
mvh Betina
Sub Session_OnEnd
If Session("fil") <> "" Then
filer = Left(Session("fil"), Len(Session("fil")) - 1)
start = 1
While start <> 0
i = InStr(start, filer, ";")
If i <> 0 Then
hjtxt = Mid(filer, start, (i - start))
start=i+1
Else
hjtxt= right(filer,len(filer)-start+1)
start =0
End If
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(hjtxt) Then
fso.DeleteFile(hjrxr)
Else
'Response.Write "Kan ikke finde filen"
End If
Wend
End If
top.close
End Sub
|