Problem med tilfældig linie fra txt fil
HejJeg prøver:
Dim line
Randomize
line = Int(20 * Rnd)
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/docs/fornavne.txt")
Set f = fso.OpenTextFile(filespec,1)
For intLine = 1 to line
f.SkipLine
Next
fornavn = f.ReadLine
Men får fejlen:
Microsoft VBScript runtime error '800a003e'
Input past end of file
Nogen der kan hjælpe eller kan en anden måde at få en tilfældig linie fra en txt fil ?
